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Foreword 


COMPUTE!'s Atari Collection, Volume 2 collects more than two 
dozen articles and programs never before published, and in¬ 
cludes three excellent utilities which appeared in out-of-print 
issues of COMPUTE! magazine from the early 1980s. 

Divided into five chapters, COMPUTETs Atari Collection, 
Volume 2 includes something for every Atari user. With action 
games like "Front Attack" and "Electronic Football," strategy 
games such as "Heroes" and "The Catacombs of Your Mind," 
and nine other games. Atari arcade lovers will be busy for 
hours. 

Programmers will enjoy the convenience of using "Block 
Line Deleter" and "Variable Changer" and the easy creation 
of vivid graphics with "Graphics Plus." And, as with most 
COMPUTE! collections, there are application programs that 
turn your Atari from a game machine into a workhorse. All 
the programs in COMPUTE!'s Atari Collection, Volume 2 are 
ready to type in and enjoy. We've even included the error¬ 
checking utility, "The Automatic Proofreader," which makes 
program entry errors obsolete. 

Atari personal computers have been vital for a long 
time—and so have COMPUTEI's Atari books. When Atari 
users look for quality programs and clear explanations of the 
most difficult techniques, they look to COMPUTE!. Our sec¬ 
ond Atari collection will be no exception. 


If you prefer to purchase a disk containing all the pro¬ 
grams in this book rather than type them in, just use the 
convenient coupon in the back, or call toll-free 1-800- 
334-0868 (in North Carolina, call 1-919-275-9809). 
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Chapter 1 


Applications 





The Magic Directory 

Stuart Goldenberg 


Access many of the DOS commands from this easy-to-use BASIC 
utility. Requires a disk drive. 


How often have you been in BASIC and found that you 
needed to do some disk cleanup—perhaps you wished to re¬ 
name some programs or even delete them? Perhaps you 
wished you knew what was on the disk, but because you 
didn't write everything down, were forced to go to DOS to get 
the directory? 

Going back and forth between DOS and BASIC is time- 
consuming. And when you return to BASIC, you're not sure if 
the filename had one T in it or two. Besides, spelling is not 
one of your strong points, and remembering that funny name, 
which made sense when you named the program, just doesn't 
make sense now. 

Wouldn't it be nice to be able to do most of your disk 
management without having to type in the program names, 
and be able to load and run programs the same way? 

"The Magic Directory" will let you display the disk direc¬ 
tory on the monitor and get a hardcopy of it on your printer. 
You can exit the program to BASIC, you can delete a program, 
you can lock and unlock, rename, load, run, or enter a pro¬ 
gram. All these options can be done from this utility program. 
The table below is a list of commands. 

Just select the appropriate file by using the normal cursor 
controls, which move a + cursor in front of the names of pro¬ 
grams. Select the desired program, and then press the appro¬ 
priate option and follow instructions as displayed. 


Magic Directory Commands 


Description 

List of files on disk 


Exit program to BASIC 
Delete file 


Command Notes 

CTRL-A Lists first 44 files 

CTRL-S Lists remaining files 

CTRL-H Hardcopy of display 

CTRL-B Clears memory (NEW) 

CTRL-D Deletes locked or unlocked 
programs, providing prompt 
as to whether the file is 
locked or not 
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Description 

Rename files 


Lock files 
Unlock files 

LOAD file from directory 
ENTER file from directory 

RUN file from directory 


Command Notes 

CTRL-N Renames locked or unlocked 
files, indicating if the file is 
locked and preventing the 
use of an existing filename 

CTRL-P 

CTRL-U 

CTRL-L 

CTRL-E ENTER does not clear mem¬ 
ory of prior programs 

CTRL-R Runs file by cursor 


Any attempt to do anything to DOS.SYS, DUP.SYS, or 
MEM.SAV will give you the option of entering DOS. If these 
options are different on your DOS, change line 440 as 
appropriate. 


Magic Directory 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

LO 10 OPEN #2,4,0, "K" s OPEN #4,12,0,"S"sOPEN #1 
, 6,0 , " D : * . * " 

HN 2 0 REM f;T=T;U> 4Z [■»it:■: ii I =m * izl ** i il; V* 

KE 30 GRAPHICS 0:PRINT "03 SPACES > D I RECTORY " 

CO 4 0 DIM A* (20) , Alt (39) , Tt (20) , T 1 $ (39) , Ft C 12) 
,RENAME*(12):Ft="FREE SECTORS" 

FO 50 L I NE = 0 : POKE 752,1 
DA 60 TRAP 120 

NA 70 INPUT #1; A*, A 1 $ : L I NE = L I NE+1 
EH 8 0 IF A1*(5,16)=F* THEN GOTO 110 
DJ 90 PRINT A*;" " ; A1 *: IF LINE = 22 THEN GOTO 13 

0 

DB 100 GOTO 70 

KH110 PRINT At: PR I NT Alt;:IF LINE = 22 THEN LIN 
E = 23 

PD 120 IF At (5, 16) =F t THEN PRINT At: IF LINE = 22 
THEN LINE=23 
HI 130 REM 

IG 140 IF LI NE = 22 THEN INPUT #l,At:IF At(5,16) 
= Ft THEN POSITION 2,23:LINE=100:PR I NT A 
t;:GOTO 150 

KH 150 XT = PEEK (90) : LR = 3: X = 2 

GE 160 POKE 84, X-(LINE=1 ) - (LINE = 23) : POKE 85,3: 

PUT #4,43 
DG 170 K = 0: GET #2, K 

HO 180 POKE 85, LR: POKE 195,0:PUT #4,32 
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E6 190 IF K = 2S AND X > = 2 THEN X = X-1:P0KE 84,X:P 
QKE 85,LR 

OL 200 IF K = 29 AND X<XT-1+(LINE=22) THEN X = X+1 
:POKE 84, X:POKE 85,LR 
HP 210 IF K = 30 THEN POKE 85,3:LR = 3 
OB 220 IF K = 31 THEN POKE 85,21:LR = 21 
SB 2 30 IF K = 4 OR K = 5 OR K=12 OR K=14 OR K=16 0 
R K=18 OR K = 2 1 THEN GOTO 300 
SC 240 IF K= 1 THEN RUN 
LE 250 IF K = 2 THEN GRAPHICS 0:NEW 
PS 260 IF K = 8 THEN GOTO 890 
BH 270 POKE 85, LR: PUT #4,43 

OF 2 80 IF K= 19 AND LINE = 22 THEN GOSUB 1030: INP 
UT #1,A 1 $:GOTO 80 
SH 290 GOTO 170 

IC 300 IF K= 1 6 THEN POKE 85,LR-1:GET #4,TX:PUT 
#4,43: IF T X = 42 THEN GOTO 170 
HO 310 IF K = 21 THEN POKE 85,LR-1:GET #4,TX:PUT 
#4,43: IF T X = 32 THEN GOTO 170 
SB 320 REM !:1 i>41 If;1S! =4g;1:[-■ JzMMi^[r»4! 

IP 330 T$ ( 1 ) = " D : " 

DP 340 FOR 1=3 TO 14 

KH 350 GET #4,TX 

FL 360 T* ( I , I ) = CHR$ CTX ) 

CO 370 NEXT I 

KK 380 POKE 85,1 2 + LR: PUT #4,32 
HP 390 POKE 752,0 

PO 400 IF T*(ll,ll)<>" " THEN T*(14,14)=T$(13, 

13) : T$ ( 1 3 , 13) =T$ ( 12, 12) :T*(12, 12)=T* <11 
, 11) :T* ( 11, 11)=". " 

DL410 FOR 1 = 1 TO 14 

IH 420 IF T*(I,I><>" " THEN T14( LEN (T 1 * ) + 1 ) =T* 

( 1 , 1 ) 

BP 430 NEXT I 

NP 440 IF T1*="D: DOS. SYS" OR T 1 *= " D : DUP . S YS " 0 

R T1*="D:MEM.SAV" THEN GOSUB 850:GOTO 8 
40+(T = 35) *40 

SF 450 TRAP 460 : X I 0 1 3 , # 1,0,0 , T 1 * 

SN 460 IF PEEK ( 195) =170 THEN GRAPHICS 0:PRINT 
"ERROR 170 - ILLEGAL FILE NAME OR FILE 
NOT FOUND":GOSUB 860:RUN 
60 470 TRAP 480 

6H480 IF PEEK ( 1 95) =2 1 THEN GRAPHICS 0:PRINT " 
ERROR 21 - NON LOAD FILE":GOSUB 860:RUN 


HK 490 

DJ 500 


IF PEEK(195)=165 THEN GRAPHICS 0:PRINT 
"ERROR 165 - FILE NAME ERROR":GOSUB 860 
: RUN 
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LA 5 10 IF K= 12 THEN GRAPHICS 0:PRINT "LOADING 
";Tl*:LOAD T1 $ 

HP 520 IF K= 18 THEN GRAPHICS 0:PRINT "RUNNING 
";T1*:RUN Tl* 

EA 530 IF K = 5 THEN GRAPHICS 0:PRINT "ENTERING 
" ;Tl*:ENTER Tl* 

HA 540 REM mTTg.Trir* i ITrM -JrT.Tri d >111:1 j 
EO 550 POKE 85 , LR— 1 : GET #4,S 
GB 560 IF S< >42 THEN GOTO 660 

EO 570 GRAPHICS 0:PRINT "TYPE # TO CONTINUE, P 
ROGRAM IS LOCKED,CONTINUING WILL UNLOCK 
THE PROGRAM" 

HH580 PRINT "AND CONTINUE YOUR REQUEST TO " : P 
R I N T " " 

EP 590 IF K = 4 THEN PRINT "DELETE " ; T* 

IP 600 IF K = 21 THEN PRINT "UNLOCK " ; T* 

HO 6 1 0 IF K= 1 4 THEN PRINT "RENAME " ; T* 

LG 620 GOSUB 860 

IC 630 IF T< >35 THEN RUN 

AH 640 XIO 36, #1,0,0, Tl*: GOTO 720 

II 650 REM [111 I *UiJ*■!■]^ i =m J :tiI33 > 1 TI il* 

LL 660 GRAPHICS 0:PRINT "TYPE # TO CONTINUE YO 
UR REQUEST TO":PRINT " " 

PH 670 IF K= 16 THEN PRINT "LOCK " ; T* 

EP 680 IF K = 4 THEN PRINT "DELETE " ; T* 

IG 690 IF K= 14 THEN PRINT "RENAME " ; T * 

LF 700 GOSUB 860 

IB 7 10 IF T< >35 THEN RUN 

KF 720 IF K = 4 THEN XIO 33 , # 1,0,0 , T 1 * : RUN 
NL 730 IF K= 1 6 THEN XIO 35 , # 1,0,0 , T 1 * : RUN 
NJ 740 IF K = 2 1 THEN XIO 36 , # 1,0,0 , T 1 * : RUN 
AB 750 REM 

HI 760 PRINT " " : PRINT "newname. ext": INPUT REN 

AME*:PR I NT :PRINT "RENAME D:OLD NAME,NE 
W NAME" 

JH 770 T$ = " C 1 6 SPACES> " : T*="D: " : T* (3) =RENAME* 

OA 780 TRAP 790 : X I 0 13,#1,0,0,T* 

Gh 790 IF PEEK ( 195) < >170 THEN GRAPHICS 0:PRINT 
"FILE NAME ALREADY ON DISK OR ILLEGAL 
FILE NAME":POKE 195,0:GOTO 760 
PG 800 T1*(LEN(T1*)+1)=" , " :T1*(LEN(T1*)+1)=REN 
AME* 

NK810 PRINT " " : PR I NT Tl* 

PH 820 XIO 32, #1,0,0, Tl* 

GH 830 CLOSE #2: CLOSE #4 
JB 840 RUN 

GH 850 GRAPHICS 0SPRINT "BY TYPING #, DOS WILL 
BE ENTERED, OR" 

OK 860 PRINT "TYPE ANY KEY EXCEPT # TO RETURN 
TO THEDIRECTORY" 
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NO 870 GET #2, T: POKE 195,0:RETURN 

IG 880 DOS 

HK 890 TRAP 990 

KF 900 OPEN #7,8,0, "P" 

0(1910 POKE 85,3: PUT #4,32:P0KE B5,21:PUT #4,3 
2 

KD 920 PRINT #7 : PR I NT #7 
JI 930 FOR Y = 0 TO XT 

OF 940 POSITION l,Y:FOR 1 = 1 TO 39:GET #4,S:T1$ 
(1,1)= CHR* <S) :NEXT I 
GJ 950 PRINT #7; Tl* 

OH 960 NEXT Y 

KI 970 PRINT #7 : PR I NT #7 

JG 980 RUN 

IB 990 GRAPHICS 0:PRINT "ERROR 138 - CHECK PRI 
NTER/INTERFACE TOSEE IF THEY ARE ON” 

NP 1000 GOSUB 860 
JC 1010 CLOSE #7 
LI 1020 RUN 
6K 1030 INPUT #1 , Al* 

06 1040 GRAPHICS 0:POKE 752,1:PRINT " 

06 SPACES}DIRECTORY 03 SPACES}- 
04 SPACES}PAGE 2" 

LD 1050 LINE = LINE+1 : POP : GOTO 80 
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Atari Bibliography 

Dana Noonan 


Index all your computer magazines conveniently and easily and 
store the data in files on disk. Requires 48K RAM and a disk 
drive. 

If you're like me, you have piles of computer magazines. 

Often, I know there's an article somewhere in that pile about a 
particular subject if only I could remember where. 

To solve this problem I wrote "Atari Bibliography" to 
keep track of all those magazine articles I had sitting around 
the house. The program had to meet several criteria. It had to 
be able to retrieve entries by title, source, category, and 
programming language, but not by author, year, or issue. 

Since hundreds of articles containing Atari programs are pub¬ 
lished each year, the program had to be able to handle a very 
long string in RAM memory. And because it's easier and faster 
to find something in an alphabetized list, it had to include a 
simple title sort. As the program developed, I added features 
so that entries could be changed, deleted, or printed. 

The sort was first written in BASIC, but it was very slow. 

I adapted Ron Marcuse's machine language sort routine, which 
first appeared in the March 1982 issue of COMPUTE! and was 
reprinted in COMPUTE'.'s Third Book of Atari. It appears below 
as Program 1. 

One Long String 

The Atari Bibliography program (Program 2) requires 48K 
RAM. Because of the program's large memory requirements, 
frequently used constants are read in as variables to save 
memory. In line 210, Z$ is DIMensioned to 23500—or the 
equivalent of 500*47. Each substring—A$ or Z$(#*K—J,#*K)— 
is 47 characters long and contains the following information: 

A$(l,l) Category 

A$(2,2) Language 

A$(3,3) Source 

A$(4,5) Year 

A$(6,7) Issue or month 

A$(8,10) Starting page 

A$(ll,47) Title and comments if necessary 

If you receive an Error 2 message at line 210, you're using 
a DOS other than 2.OS, or you have less than 48K RAM. 
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Lower the number in the DIM statement for Z$. Try DIM 
Z$(18500). Now you'll be able to enter only 400 articles in¬ 
stead of 500. 

The title (T$) fits on one line (37 characters), so you can 
see just how much room you have for title and comments. If 
you near the end of the line, you can go back and shorten the 
title to fit. If you want to add a comment about an article, and 
if the title is short, you can include it here. If a title begins 
with the words Atari or The, begin with the second word. 
Shorten titles any way that makes sense to you. If you add a 
short comment to series titles, you'll be able to find just the 
right article faster. 

Typing In the Programs 

Atari Bibliography is composed of two programs. Using ''The 
Automatic Proofreader" from Appendix C, type in Program 1, 
"Machine Language Sort," written by Ron Marcuse. Save it 
before you run it. Next, type in Program 2, Atari Bibliog¬ 
raphy, and save it using the filename BIBL.BAS. Each time 
you want to use the program, you must load and run Program 
1. Program 1 will install the machine language, and then load 
and run Program 2 for you. 

Using the Program 

The first time you use the program, you'll, of course, have no 
data saved on disk. You should start entering data by year. 
You'll have nine choices: the first for magazines prior to 1983, 
and then for each year through 1990. Pick the year you want 
to start with and press the corresponding key. The disk drive 
will spin and a new menu will appear indicating that there are 
no records in this file. 

From this menu you can choose to enter data; sort it; 
search by title, source, category, or programming language; 
save the data; load a new data file; or quit the program. At 
this point you'll want to enter data. The maximum number of 
articles permitted for one file is 500. Entering data is as simple 
as following the prompts and answering the questions. Entry 
has been made faster by predefined answers such as a list of 
magazines to pick from. 

Once you have entered all the data, be sure to return to 
the menu and save the data. Now, whenever you want to 
search for an article, just load the year you think the article 


9 



Chapter 1 


appeared and search for it. When you search by title, only the 
article title will appear. Press the space bar to see the next title 
or another key to see all the information for the last title. 

After entering a few articles, save the data and experiment 
with the different options; this is the best way to become 
familiar with all the features. 

Program 1. Machine Language Sort 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

DC 10 REM ATARI BIBLIOGRAPHY 
IP 20 REM PROGRAM 1 
EH 30 REM 

CD 40 REM THIS PROGRAM LOADS AND RUNS 
HB 50 REM PROGRAM 2. 

AJ 60 REM YOU MUST SAVE PROGRAM 2 
BA 70 REM USING THE FILENAME BIBL.BAS 
EH 80 REM 
EN 90 REM 

CK 100 REM MACHINE LANGUAGE SORT UTILITY 
CH110 REM FROM COMPUTE! MARCH 1982 
PI 120 REM REPRINTED IN COMPUTE ! S THIRD BOOK 0 
F ATARI 

BC 130 REM BY RON MARCUSE 
HJ 140 REM 

NE 800 ? CHR* ( 125) : POSITION 2,10:? "ENTERING M 
ACHINE LANGUAGE...":? "{DOWN} PLEASE WA 
IT" 

HI 810 FOR 1 = 1568 TO 1693:READ A:POKE I,A:NEXT 
I 

JE 820 TRAP 840:? CHR* ( 1 25 ) : POS I T I ON 2,10:? "L 
OADING D:BIBL.BAS" 

GP 830 RUN "D: BIBL. BAS" 

CF 840 ? CHR* ( 125) ; CHR* (253) : POSITION 2,10:? " 
BIBL.BAS NOT ON THIS DISK" 

HB 850 ? " {DOWN} INSERT PROPER DISK AND PRESS A 

KEY”:POKE 764,255 
OK 860 IF PEEK (764) =255 THEN 860 
EE 870 POKE 764,255: GOTO 820 
FB 1568 DATA 104,104,133,217, 104,133 
FD 1574 DATA 216,104,133,209,104,133 
PH 1580 DATA 208,169,0, 133,218,133 
PJ 1586 DATA 207,162,1,165,216, 133 
CJ 1592 DATA 214,165,217, 133,215,24 
FF 1598 DATA 165,214, 133,212,101,205 
FA 1604 DATA 133,214,165,215,133,213 
OD 1610 DATA 105,0, 133,215,164,203 
CF 1616 DATA 165,206,240,10, 177,214 
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OL 

1622 

DATA 

DF 

1628 

DATA 

IF 

1634 

DATA 

FI 

1640 

DATA 

HE 

1646 

DATA 

GB 

1652 

DATA 

CN 

1658 

DATA 

PD 

1664 

DATA 

IE 

1670 

DATA 

6J 

1676 

DATA 

GP 

1682 

DATA 

HN 

1688 

DATA 


209,212, 144,44,240, 12 
176,19,177,214,209,212 
144,13,240,2,176,30 
200,196,204,240,227,176 
23,144,223,169,1,133 
218,164,205,136,177,214 
72,177,212,145,214,104 
145,212,192,0,208,241 
232,224,0,208,2,230 

207.228.208.208.172.165 

209.197.207.208.166.165 
218,201,0,208,144,96 


Program 2. Atari Bibliography 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

AC 1 REM ATARI BIBLIOGRAPHY 

NB 2 REM SAVE THIS PROGRAM WITH 

CF 3 REM SAVE " D:BIBL.BAS" 

BI 4 REM 

CH 10 GOTO 200 

GP 15 POKE Z, Z1 : FOR C=Z1 TO Z10 + Z2:? ,CHR*(C+Z 

64);". " ;D*(C*Z20-Z19,C*Z20> :NEXT C:POKE 

Z, Z0:RETURN 

GN 20 POKE Z, Z1 : FOR C = Z1 TO Z10+Z3:? ,CHR*(C+Z 

64);". " ; Et <C*Z20-Z 19, C*Z20) : NEXT C.-POKE 

Z,Z0sRETURN 

IJ 25 POKE Z , Z 1 : FOR C = Z1 TO Zll:? ,CHR$(C+Z64) 

; " . " ;F$<C*Z10-Z9,C*Z10) :NEXT C:POKE Z,Z 

0:RETURN 

DA 30 N = LEN ( Z$ ) / K: RETURN 

CN 35 ? St: POSITION Z11,Z10:POKE Z,Z1:? "ONE M 
OMENT PLEASE":RETURN 

AG 40 CLOSE # Z 2: ? :? "14 SPACESJTO SCREEN OR E 

RINTER?";:GET #Z1,R:IF R<>80 THEN OPEN # 
Z 2,Z 4, Z 0, "S: ":POKE Z,Z1:P = Z0:RETURN 
HG 45 TRAP 50:OPEN #Z2,Z4,Z0,"P:":GOSUB Z35:S = 
Z 0:P = Z1:RETURN 

BO 50 TRAP X : CLOSE #Z2:? St:? :? "<5 SPACESICH 

ECK PRINTER - HIT RETURN":GET #Zl,R:GOTO 
Z 40 + Z 5 

HE 60 CLOSE #Z2: POSITION Z2,Z20+Z2:? " 

113 E1J;T»3^1 > l=<:i«»I^^*a <:i2 33233) 11 : ? L$;' 
{ U P >":FOR C=Z1 TO Z900:NEXT CsGOTO Z700 
PA 70 E=Z5+Z10:H*="SOURCE":B=72:M=77:GOTO Z100 
-Z 10 

EF 72 IF R* = B*(Z3,Z3) THEN GOSUB Z112 
EL 74 RETURN 
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Nil 76 E = Z 2 0 : Ht="CATEGORY" : B = 78: M = 7 7 : GOTO Z100- 
Z 10 

EH 7B IF B*(Z1,Z1)=R* THEN GQSUB Z112 
El 80 RETURN 

GH 82 E=Z20+Z5: Ht="LANGUAGE" : B = B4: M = 7 4 : GOTO Z1 
00-Z10 

EG 8 4 IF B$(Z2,Z2)=R* THEN GQSUB Z112 
EO 86 RETURN 

EG 90 ? S$: GOSUB E:? :? , " Y. ALL":? :? ,"Z. NO 
NE":? :? H*;:INPUT Rt:IF R*="Z" THEN GOT 

O Z 700 

CG 92 GOSUB Z40:IF Rt="Y" THEN U=Z1:F0R W = Z64 + 
Z1 TO M:Rt=CHRt(W):RR=W-Z64 
HP 100 IF P=Z0 THEN GOSUB 144 
PB 102 IF Q >0 THEN GOTO Z100 + Z 8 
IH 104 GOTO Z 40 
NJ 106 GOSUB Z 35 

HD 108 FOR 1=0 TO N : B$ = Z * ( I * K — J , I * K ) : GOSUB B : N 
EXT I:IF U=Z0 THEN GOTO Z30+Z30 
DL110 ? #Z2:S=S+Z1:NEXT W:GOTO Z30 + Z30 
OB 112 IF P=Z1 THEN ? # Z 2 ; CHRt ( 1 5 ) , B* ( Z 1 1 , K ) ; : 
GOTO Z100 + Z 20 

ED 1 1 4 ? #2; Bt ( Z 1 1 , K) : GET #Z1,R:L = L + Z1 : IF L>Z1 
0 + Z 8 AND R = Z30 + Z2 THEN GOSUB 144 
Dil 1 16 IF R=Z30 + Z2 THEN RETURN 
HP 118 IF R = 77 THEN GOTO Z700 

BC 120 RR = ASC <B$ ( Z3, Z3> )-Z64: ? # Z 2 ; D* ( RR * Z 20-Z 
19,RR*Z20); 

HD 122 ? #Z2; " 1 9 " ; B t ( Z 4 , Z5) ; "-C3 SPACES>#";B$( 6 
,7);" p.“ 5 :IF P=Z1 THEN ? #2;B*<Z 8 ,Z10 
),:GOTO 126 

LF 124 ? #Z2 ; Bt (Z 8 , Z10) : L = L + Z1 

ID 126 RR = ASC (Bt<Z 1 , Z1) >-Z64:? #Z2;E*<RR*Z20-Z 
19,RR*Z20>;:L=L+Z2:IF Bt(Z2,Z2>=" " THE 

N ? # Z2:GOTO Z100 + Z30 

KH 128 RR=ASC(Bt<Z2,Z2)>-Z64:? #Z2;Ft(RR*Z10-Z 
9,RR*Z10) 

AD 130 IF P=Z0 THEN 136 

BO 132 S = S + Z 1 : IF S<Z64-Z2 THEN RETURN 

LD 134 FOR C = Z1 TO Z4:7 #2:NEXT C : S= Z 0 : R E TUR N 

ON 136 ? # Z 2: GET #Z1,R:IF R = 77 THEN GOTO Z700 

IB 138 IF R = 67 THEN GOTO Z800 

LL 140 IF L>Z 10 + Z 8 THEN L = Z0:GOSUB 144 

HH 142 RETURN 

GD 144 L = Z 0 : ? St:POSITION Z2,Z20 + Z2:? " 

C5 STJiM=■ ;7T W ■i t - * 41 [r' 

<5 " 

ea 146 ? a M r^nr 

C5 aJ;I»3=4.-l >N i^:^iBi^N^:B CUP> " : POSITION Z2,Z 
0:RETURN 
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HH 200 READ Z0, Z 1 , Z2, Z3, Z4, Z5, Z8, Z9 , Z 10, Z 1 1 , Z 1 
9,Z20,Z30,Z 35 ,Z 4 0 ,Z 64 ,Z100,Z 1 1 2 ,Z300,Z5 
00,Z600,Z700,Z800 ,Z900,J,K,Z,X 
CP 205 DATA 0,1,2,3,4,5,8,9,10,11,19,20,30,35, 
40,64,100,112,300,500,600,700,800,900,4 
6,47,752,40000 

JH210 DIM Z* (23500) , D$ (240 ), E* (260 ), F$ ( Z 100 + Z 
10) ,DD* (Z8 > ,H*(ZB) ,T$(K-Z10) ,S$(Z1) , Y$< 
Z10-Z3), M* ( Z 1 >,R$ < Z3),C* < Z2> 

PP215 DIM B$<K),<K),A$(K),L*(Z40-Z4):L$=" 

C M J " : L $ (Z40-Z4) = L $: L $ (Z2) = L $ : S $ = " 

C C L E A R J":OPEN #Z1,Z4,Z0,"K:" 

BP 220 ? S$ : POKE Z , Z 1 : POS I T I ON Z10,Z10:7 "COMP 
UTER BIBLIOGRAPHY":? :? :? ," BY DANA N 

OONAN" 

EA 222 POSITION 2,20:? "COPYRIGHT COMPUTE! PUB 
L I CAT IONS, INC. " 

OH 225 POKE 203,Z10:POKE 204,J:POKE 205,K:POKE 
206 , Z0 

HH 230 D$ = " " : D $ (240) = D $ : D $ ( Z2) =D$: FOR I=Z1 TO 

Z 10 + Z2:READ B$:D$(I*Z20~Z19, I*Z20)=B$: 
B $ = "":NEXT I 

NF 235 E$=" " : E $ (260) = E $ : E $ ( Z2) = E $ : FOR I = Z1 TO 

Z10+Z3:READ B*:E*(I*Z20-Z19,I*Z20)=B$: 
B$="":NEXT I 

OH 240 F*=" " :F*(110)=F*:F*<Z2)=F$:FOR I = Z1 TO 

Z11:READ B$:F$(I *Z10 —Z9, I *Z10)=B$:B*=" 
":NE X T I 

EK 245 z*=" " : D D * = " D : BIB. D ":? S$:? "CDOWNJ CO 
MPUTE ! ’ S ATARI BIBLIOGRAPHY CDOWNJ " 

Hfl 246 ? ,"1. BEFORE 1983":? , "2. 1983":? ,"3. 

1984" 

HP 247 ? , " 4. 1985":? ,"5. 1986":? ,"6. 1987" 

PC 248 ? , " 7. 1988":? , "8. 1989":? , ” 9. 1990": 
POKE Z,Z0 

01250 ? "CDOWNJ ENTER THE NUMBER OF YOU CHOI 
CE?";:GET #1,R:? CHR$(R):IF R<49 OR R>5 
7 THEN ? CHR*(253):GOTO 245 
AK 260 DD* (Z8, Z8) =CHR* <R> : F=Z0: GOSUB Z30:GOSUB 
Z35:TRAP Z300-Z30:CLOSE #Z2:0PEN #Z2,Z 
4,Z0,DD* 

BD 265 FOR I = Z1 TO Z500: INPUT # Z 2 ; B $ : Z $ ( LEN ( Z $ 
)+Z1)=B*:NEXT I 

OH 270 TRAP X : CLOSE #Z2:G0T0 Z300 

CL 280 ? S*:? " CDOWNJCTABJSAVE “ ; DD*; " (Y/N)?" 

; : GET # Z1,R: IF R = 89 THEN GOTO Z300-Z10 
L0 282 ? : ? , "RETURN TO MENU (Y/N) : INPUT R$: 

IF R$< >"N" THEN GOTO Z300 
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IN 284 ? :? "SAVE FILE ( " ;DDt; " ) : INPUT DDt: I 

F DDt="" DR LENtDDtXZS THEN ? "£2 UP>" 
:GOTO 284 

JI 290 GOSUB Z 35 : CLOSE #Z2:0PEN # Z 2 , ZB, Z 0 , DDt : 
FOR I = Z1 TO N:? #Z2; Z*( I *K- J, I *K) :NEXT 
I :CLOSE #Z2:GOTO Z300 

HH 295 END 

FP 300 ? Sts? , " ; GOSUB Z30:? :? 

, " ";N;" RECORDS":? :? :? , "1. ENTER 

DATA":? :? ,"2. SORT DATA" 

FB 305 ? : ? , "3. RETRIEVE DATA":? :? ,"4. SAVE 

DATA":? :? , "5. LOAD NEW FILE(MAIN MEN 
U)":? :? ,"6. QUIT" 

JC310 POKE Z , Z 0 : ? :? , " CHO I CE? " ; : GET #1,R:IF 
R< 49 OR R >54 THEN ? "£BELL>{2 UPI":GOTO 
310 

KH315 R=R-48 : ON R GOTO 350 , Z 500 , Z 700,280,245 , 
Z 300-Z 5 

HE 350 ? St: GOSUB Z30:IF N = Z500 THEN ? , DDDt; " 

FULL":FOR 1=1 TO Z900:NEXT I:GOTO Z300 

EH 352 Bt=" " : POKE Z,Z0:? "TITLE (TYPE F^TTC TO Q 
UIT) ": INPUT Tt:? :IF Tt="" OR LEN(T t) > Z 
40 — Z 3 THEN 350 

FA 354 IF Tt=" END" THEN GOTO Z300 

GH 360 IF LEN (Tt) <Z40-Z3 THEN Tt ( LEN ( Tt)+Z 1 ) = " 
" :GOTO 360 

DD 365 IF F= Z 1 THEN ? :? "SAME ISSUE = RETURN 
- OTHER = ANY KEY":GET #Z1,R:IF R=155 T 
HEN Yt=Yt(Z1,Z4>:GOTO 390 

AI 370 GOSUB Z5 + Z 10: ? 

SB 3 75 ? "SOURCE" ;: INPUT Ml: IF ASC(Mt)>76 QR A 
SC (Mt)<Z64-Z1 THEN ? "£BELL>£2 UP>":GOT 

0 375 

DI 380 Yt =" " : ? : ? "LAST 2 DIGITS OF YEAR";:INP 
UT Rt:Yt (Z1,Z2)=Rt 

NH 385 ? : ? "MONTH/ISSUE ";: INPUT Rt: Yt (LEN (Yt 
)+Z1)=Rt:F = Z1: IF LEN(Yt)<Z4 THEN Yt ( LEN 
(Yt)+Zl)=" " 

EO 390 ? : ? "PAGE" ;: INPUT Rt: Yt (LEN ( Yt) +Z 1 ) =Rt 

EF 395 IF LEN ( Yt) < 7 THEN Yt ( LEN ( Yt ) + Z 1 ) = " " : GO 

TO 395 

FL 400 ? St: GOSUB Z20:Ct="£3 SPACES!":? 

HI 405 ? "CATEGORY" ;: INPUT Rt: Ct ( Z 1 , Z 1 ) =Rt: IF 
ASC(Rt) >77 OR ASC(Rt)< 65 THEN ? "{BELLI 
£2 UPI":GOTO 405 

OF 4 1 0 ? St: GOSUB Z20+Z5:? :? " LANGUAGE ";: I NPU 

T Rt: I F Rt="" THEN Ct(Z2,Z2>=" ":GOTO 4 

20 

AE412 IF ASC (Rt) >75 OR ASC(Rt)<65 THEN PRINT 
CHRt(253):GOTO 410 
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EJ 415 Ct <22, 22) = R$ 

DI420 A*="" :A*(LEN(A$>+Z1)=C$:A*<LEN<A*)+Z1)= 
M$ :A $(LEN ( A$ )+Z1)= Y$ :A $(LEN(At) +Z 1 )= T $ : 
2* (LEN(Z*)+Z1>= A$ 

NN 4 30 POKE Z , Z 1 : ? :? , " EONTINUE OR CE N U " : GET 

#Z 1 ,R: IF R< >67 AND R<>77 THEN ? " 

CBELLJ“:GOTO Z430 
CH 435 IF R = 67 THEN GOTO 350 

HJ 440 IF R = 77 THEN GOTO Z300 

CP 500 GOSUB Z 35 : IF N>Z1 THEN A = USR ( 1 568 , ADR ( Z 
* ) , N) :GOTO Z300 

CB 600 IF ASC<Tt><Z64+Z1 THEN Q=Zl:GOTO Z100 
BI 605 Q = N: Q = I N T (Q/Z2) : Q $ = " " : R = N: GOTO Z600 + Z20 
KP610 Q* = B* 

FC615 IF Q = Z 0 THEN RETURN 

PK 620 B$=Z$ <Q*K-J, Q*K) : IF B* = Q* THEN Q = Q-Z1:R 
ETURN 

AI 625 IF B$<Z11,TT)=A*(Z11 , TT) THEN Q = Q-Zl:GO 
TO Z600+Z40 

FL 630 IF B$ ( Z 1 1 , TT > >At ( Z 1 1 , TT ) THEN R = Q:Q=INT 
<Q/Z2):G0T0 Z600+Z10 

KB 6 35 IF B* ( Z 1 1 , TT) < At ( Z 1 1 , TT) THEN M=(R-Q)/Z 
2:Q=INT(Q+M):GOTO Z600+Z10 
OA 640 B* = Z$ (Q*K-J , Q*K) : IF B* ( Z 1 1 , TT ) = A$ ( Z 1 1 , T 
T) THEN Q=Q-Z1:GOTO Z600+Z40 
HP 645 RETURN 

LC 700 U = Z 0 s ? S*:? "CS SPACESJYOU CAN RETRIEVE 
ARTICLES BY:":? :? , "1 . ALL ARTICLES" 

DK 705 ? : ? ,"2. TITLE":? :? , " 3. SOURCE" 
DB710 ? : ? ,"4. CATEGORIES":? :? ,"5. LANGU 

AGE":? :? ,"6. MAIN MENU" 

PJ715 POKE Z , Z0: POSITION Z10,15:? "YOUR CHOIC 
E?" ; : GET #Z1,R:? CHR*(R):IF R<49 OR R>5 
4 THEN ? "CBELLJC4 UP>":GOTO 715 

HP 720 Q = Z1 : L = Z0: S = Z0: GOSUB Z20 + Z 10: R = R-48: ON 
R GOTO Z700+Z30,Z700+Z40,70,76,82,Z300 
BE 730 ? : GOSUB Z40:GOSUB 144:F0R I = Z1 TO N:B* 

=2* <I*K-J,I*K):GOSUB Z112:NEXT I:GOTO Z 
30 + Z 30 

IN 740 ? : ? "TITLE" ;: INPUT T$: IF T*="" THEN ? 

" -CBELL > {2 UP} " : GOTO Z700 + Z40 
NO 745 TT = LEN ( T* ) +Z10: A$=" ":A$ (K) =At: At (2)=A$ 

:A*(Z11,TT)=T*:GOSUB Z40:B=750:GOSUB Z6 
00:GOTO Z100 

JC 750 IF B* < Z 1 1 , TT) =A* ( Z 1 1 , TT) THEN GOSUB Zll 
2 

AI 755 IF B* (Z1 1 , TT) >A* (Z1 1 , TT) THEN GOTO Z30 + 
Z 30 

HN 760 RETURN 
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HI 800 ? S*," C3 SPACES} I»-:;r:lIM==M?TT¥T5Y ' : ? :? Lt 

NH 805 ? B$ ( Z 1 1 , K ) : H = ASC ( B* ( Z 1 1 , Z 1 1 ) ) : RR = ASC ( B 
$<Z3,Z3))-Z64:? D* ( RR*Z20-Z19,RR*Z20) ; 
HG810 ? " 19" ; B$ ( Z4, Z5) ; " <3 SPACES > # " ; B$ ( 6,7 ) ; 

" p.";B$(Z8,Z10) 

DA 8 1 5 RR = ASC ( B* ( Z 1 , Z 1 > )-Z64 : ? E$ ( RR * Z20- Z 1 9 , R 
R*Z20); 

OH 820 IF B$(Z2,Z2)=" " THEN GOTO ZB00 + Z30 

HO 825 RR=ASC<B$<Z2,Z2)>-Z64:? F$<RR*Z10-Z9,RR 
*Z 10) 

Cl 830 ? : ? L$ : ? " CDDWNJC4 SPACES}EHANGE OR EE 
LETE OR GENU"; 

DO 835 GET #Z1,R:IF ROZ64 + Z3 AND ROZ64 + Z4 AN 
D R<>77 THEN ? "C3 UPJ":GOTO ZB00+Z35 
IB 840 IF R = 77 THEN GOTO Z700 

HG 845 IF R=Z64+Z3 THEN ? "C2 UP>":GOTO Z900-Z 
40 

ON 850 ? : ? , "DELETE ITEM C Y / N ) ? " ; : GET #Z1,R:I 
F R< >89 THEN GOTO Z700 

KH 855 Z*(I*K-J,LEN<Z$) )=Z$( (I + Zl) *K-J,LEN(Z*> 

) : lt=Z %< Z1,LEN<Z*>-K) :GOTO Z700 
CE 860 ? : ? 1. TITLEC8 SPACES}":? ," 2. S 

OURCE":? ," 3. YEAR":? ," 4. ISSUE":? 

," 5. PAGE":? ," 6. CATEGORY" 

NG 865 ? ," 7. LANGUAGE":? , " 8. NO CHANGE": 

? :? , "YOUR CHOICE?";:GET #Z 1 ,R:R = R-4B: 

? 

AH 870 ON R GOTO Z 900-Z 20 , Z 900 + Z 5 , Z 900 + Z 1 0 , Z 90 
0+15,Z900+Z20.Z900+25,Z900+Z30.Z700 
NH 880 ? : ? "TITLE" : INPUT T*:IF LEN(T$) >Z40-Z3 
THEN ? "C 3 UP>":GOTO Z900-Z20 

KD 890 IF LEN ( T$ ) < 37 THEN T* ( LEN ( T$ ) + Z 1 ) = " " : G 

OTO Z900-Z10 

OE 900 GOSUB Z35:B$(Z11,K)=T$:Z$<I#K-J,I*K)=B$ 
: GOTO Z 800 

BC 905 ? S$ ; : GOSUB Z30:? :? " MAGAZ I NE " ; : I NPUT 
M*:B*(Z3,Z3)=M$(Z1):GOTO Z900+Z35 
PE 910 TRAP X : TRAP Z900 + Z10:? :? "YEAR (2):";: 

INPUT Y*:B*(Z4,Z5> =Y* < Z1,Z2> :GOTO Z900 + 
Z 35 

GH915 TRAP X:TRAP 915:? :? "ISSUE (2):";:INPU 

T Y*:B* (6,7)=Y*(Z1 , Z2) :GOTO Z900 + Z35 
BE 920 TRAP X : TRAP Z900 + Z20:? :? "PAGE (3):";: 

INPUT Y$:B*(Z8, Z 10)=Y*(Z1, Z3) :GOTO Z900 
+ Z 35 

HE 925 ? S* ; : GOSUB Z20:? :? " CATEGORY ";: I NPUT 

C*:B*(Z1,Z1)=C*(Z1,Z1):GOTO Z900+Z35 
GC 930 ? S$; : GOSUB Z20 + Z5:? :? "LANGUAGE"; : INP 

UT C$:B$ (Z2, Z2)=C$ CZ1, Z1 ) :GOTO Z900 + Z35 
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JH 935 
DL 1000 

AP 10 10 
FO 1100 

AB 1110 
6G 1200 


Z*(I*K—J,I*K)= B*:GOTO Z800 
DATA ACE,ANALOG,ANTIC,ATARI CONNECTION 
,BYTE,COMPUTE!,CREATIVE COMPUTING,MICR 
0,MICROCOMPUTING,SOFTLINE 
DATA SOFTSIDE,OTHER SOURCES 
DATA ADVENTURE,ARCADE GAME,WORD GAME,0 
THER GAME,EDUCATION,UTILITY,SOUND DEMO 
,GRAPHICS DEMO 

DATA GRAPHICS/SOUND DEMO,ML DEMO,APPLI 
CATION,REVIEW,OTHER 

DATA BASIC,BASIC-ML,MICROSOFT,ML,FORTH 
,PILOT,PASCAL,LOGO,LISP,VISICALC,OTHER 
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Personal Net Worth 
Statement 

John L. Nuss 


“Personal Net Worth Statement" will calculate your net worth 
easily and quickly. The built-in editing functions permit easy 
changes in any entry. And since the data is saved as part of the 
program, it will work with tape or disk. 

Financial advisors recommend the practice of calculating your 
personal net worth annually or even more frequently if pos¬ 
sible. Doing so enables you to measure the extent to which 
you are attaining your savings goals for retirement or other 
purposes. It can also be helpful for estate planning. 

This program allows you to calculate your net worth with 
relative ease. It also summarizes your holdings by categories 
which you have set up. This should allow you to determine if 
the mix of your investments is in line with the investment 
strategy you have set. Best of all is the ease with which you 
can update your financial data by using an onscreen editing 
technique. 

Changing Categories 

Type in the program as listed except for any changes or addi¬ 
tions you might want to make to the DATA statements which 
contain the category names. Remember that you're limited to 
one category for each letter of the alphabet, so you may need 
some imagination to come up with meaningful category 
descriptions. The program as written allows for only 17 cate¬ 
gories, because 17 is all that will fit on one screen of the selec¬ 
tion menu or the net worth statement. You could change this 
by providing for a second page for these screens, but since 17 
categories are probably more than adequate, no change should 
be required. 

When running the program, you'll first be asked for the 
current date. The program accepts only numerals for the date 
input and expects to see two digits for each item (month, day, 
and year), so you should preface single-digit months and dates 
with a zero. After receiving an acceptable date, the program 
will present a menu of possible routines. All that's required is 
a one-key response, since I tried to minimize the need for the 
RETURN key as much as possible. 
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Type 1 to begin entering your assets and liabilities. You 
will be presented with the category menu from which to se¬ 
lect. Type the first letter of your category choice. The data 
entry/edit screen will then appear for that category. Type the 
description of your first entry and hit RETURN. An item num¬ 
ber and category letter will appear in the REF column, and the 
description will appear in the description column as entered. 
You will then be prompted to enter the value and valuation 
date in the same manner. The valuation date default is the 
current date, so just hit RETURN if that is satisfactory. 

Liabilities (debts) should be entered as negative numbers. 
For instance, you might enter the market value of your car or 
home as an asset and the balance of your auto loan or mort¬ 
gage as a liability. When you have made all the entries for a 
category, just hit RETURN and you'll be offered the choice of 
either going to another category or returning to the main 
menu. Note that because of the amount of room on the 
screen, you are limited to 13 entries per category. 

Editing 

If you make an error on an entry or if you later wish to 
change an amount or description, you need only move the 
cursor to that item, edit it, and hit RETURN. The correspond¬ 
ing DATA statement will be revised without disturbing any 
other items on the screen. A minor drawback is that you can¬ 
not completely delete items in this manner. However, the 
value of an item can be set to 0, thereby effectively eliminat¬ 
ing it. Or both the value and description can be changed, 
which, in effect, will replace it with a new item. 

There is also the option to delete all your entries. This 
routine can be accessed from the main menu. 

After entering your assets and liabilities, you can review 
your net worth by requesting the proper routine from the 
menu screen. The program will then total your entries and dis¬ 
play your net worth by category as well as give an overall to¬ 
tal. The proportional relationship of each category to the total 
is also displayed as a percentage. 

Personal Net Worth Statement 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PD 110 OPEN #2, 12,0, "E: " 

J6 120 DIM P* (8) , R$ (2) , X (2) 
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Aft 130 READ P 
CF 140 READ Pt 

CH150 GOSUB 350: REM - GOTO SCREEN CLEAR & TIT 
LE ROUTINE 
ML 160 CONT 

GN 180 TRAP 18 0: CLOSE #1 

OL 190 POSITION 2,6:? "What is today’s date (M 
M/DD/YY)?" 

HA 200 GOSUB 550: REM - GOTO DATE ENTERING ROUT 
INE 

CH210 FOR 1 = 1 TO 100: NE X T I 

ftfl 220 DIM CATt(20) ,Ct<1) ,Dt<13) ,Vt (9) ,DTt(8) , 
St(38) , At(9) ,CM*(1) , It ( 38) ,V(26) ,PC(26) 
IN 230 S$=" <38 SPACES}" 

PH 240 CM$=" 

MB 250 Rt = St 
El 260 CATt = St 
LE 270 Ct = St 
LG 280 Dt = St 
NJ 290 Vt = St 
AD 300 DTt = St 
KN310 At = St 
LG 320 It = St 

OM 330 GOTO 66 0: REM - GOTO TO MAIN MENU 
IL 340 DATA 0,00/00/00 

PB 350 GRAPHICS 0:SETCOLOR 2 , 1 1,0 : SETCOLOR 4,1 
1,0:SETCOLOR 1,10,10:POKE 752,1 
CO 360 ? "* NET WORTH STATEMENT AS OF ";Pt;" * 

CDOWN>":RETURN 

IC 370 REM - DOLLAR AND CENTS FORMAT 

HA 380 IF ABS ( A ) >999999 THEN At = STRt ( A ): RETURN 

BB 390 A t = " C 6 SPACES}. " : B = 7-LEN ( STRt ( I NT ( A ) ) 

> + (A<0) 

PF 400 IF A< 0 THEN A = -A : At < B- 1 , B- 1 ) = " - " 

BH410 At <B, 6) =STRt ( INT (A) ) 

HA 420 At (7,9) =STRt ( 100+INT ( (A-INT (A) ) *100 + 0.0 
5 ) ) 

JG 430 At (7,7) = " . " 

EH 440 IF VAL (At) <0 THEN A = -A 
HJ 450 RETURN 

AI 460 REM - FORCED READ ROUTINE PART 1 
DM470 POSITION 2,18:? "C6 DEL LINE}" 

PD 480 POSITION 2,19: RETURN 

AM 490 REM - FORCED READ ROUTINE PART 2 

EM 500 ? "CONT" 

NC 510 POSITION 2,18 

HE 520 POKE 842,13: STOP 

6C 530 POKE 842, 12:G0SUB 460:RETURN 

GM 540 REM - ENTER DATE ROUTINE 

PL 55 0 OPEN #1,4,0, "K" : POKE 752,1 
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LF 560 POSITION 24,8:? "M/M/BH" 

PL 570 P$=" / / " : TRAP 650 

IK 580 FOR 1 = 1 TO 6 : J = I + ( I >2 ) + ( I >4 ) 

OK 590 IF PEEK (764) =255 THEN 590 
PE 600 GET #1,X:P$(J,J)=CHR$(X) 

JD610 IF X < 48 OR X>57 THEN 650 
SO 620 POSITION 23 +J , 8 : ? CHR*(X> 

CB 630 NEXT I 

HO 640 CLOSE #1: RETURN 

JG 650 POP : GOTO 180 

LE 660 GOSUB 350 

HE 670 CLOSE #1:TRAP 660 

KC 680 POSITION 5,3:? "Please choose one of th 
e -following:" 

CB 690 POSITION 10,5:? "1 - Update or Review D 

a t a -C 4 SPACES!" 

KD 700 POSITION 10,7:? "2 - Net Worth Report 
{9 SPACES!" 

HB710 POSITION 10,9:? "3 - Store Data and End 

II 

IF 720 POSITION 10,11:? "4 - Erase Data" 

NH 730 POSITION 5,15:? "What is your selection 
? " 

JI 740 OPEN #1,4,0, "K" 

OS 750 IF PEEK (764) =255 THEN 750 

NL 760 GET # 1 ,OP:OP = VAL(CHR*(OP) ) :CLOSE #1 

OC 770 ON OP GOSUB 790,1590, 1880,2020 

HE 780 GOTO 660 

10 790 REM -UPDATE DATA 

LA 800 GOSUB 350 

GH810 POSITION 2,3:? "WHICH CATEGORY?" 

IH 820 TRAP 870: RESTORE 8010:1=0 
IH 830 READ CATS: IF CAT4="[1" THEN 870 
HH 84 0 1 = 1 + 1 

HO 850 POSITION 7,5+1:? CAT$; 

HC 860 GOTO 830 

JH 870 OPEN #1,4,0, "K" 

OP 880 IF PEEK (756) =255 THEN 880 
KP 890 GET #1 , X: CLOSE #l:GOSUB 350 
IC 900 POSITION 1,2s? " { =! REF C = ! DESCRIPTION 

C = ! VALUE C = ! DATE <=!" 

FJ910 COLOR 14: PLOT 1 , 1 : DRAWTO 39,1 

FN 920 COLOR 13:PLOT 2,3:DRAWT0 38,3 

IK 930 COLOR 124: PLOT 1,2:DRAWT0 1,17 

EG 940 PLOT 6,3: DRAWTO 6,17 

JP 950 PLOT 20,3: DRAWTO 20,17 

KC 960 PLOT 30,3: DRAWTO 30,17 

LF 970 PLOT 39,2: DRAWTO 39,18 

JN 980 RESTORE 9000 : I =0 : J = 0 : T = 0 : TRAP 1100 

HN 990 1 = 1 + 1 
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oo 1000 

EH 10 10 
PA 1020 
HO 1030 
PI 1040 
CD 1050 
CH 1060 
EG 1070 
KK 1080 
KF 1090 
LA 1 100 
HP 1110 

OH 1120 
FO 1130 

HE 1 140 
FP 1150 

JO 1160 
LE 1170 
OA 1175 
EO 1 180 
HN 1190 
NN 1200 
AO 1210 
DA 1220 
CD 1230 


FI 1240 
HF 1250 
6K 1260 
SK 1270 
GA 1280 
KO 1290 
NF 1300 
PD 1310 
DD 1320 
HH 1330 
LO 1340 
OE 1350 
JE 1360 

HG 1370 
HB 1380 

FO 1385 


J = J + 1 

READ CS,DS,VS,DTS 

IF C S = 11 [a" THEN 1100 

IF CtOCHR$(X) THEN 1000 

POSITION 2+(J<100)+(J<10),3+1:? J 

POSITION 5,3+1:? CS 

POSITION 7,3+1:? DS 

POSITION 21,3+1:? VS 

POSITION 31,3+1:? DTS 

GOTO 990 

REM - DATA UPDATE 

POKE 752,1:COLOR 13:PL0T 1,18:DRAWT0 3 

9,18:PLOT 39,18 

TRAP 1220:RESTORE 8010 

READ CATS: IF CATS ( 1, 1)=CHRS ( X) THEN 11 
50 

GOTO 1130 

POSITION 2,17:? CATS:POSITI ON 31,17:? 

" TOTAL" 

A=0:RESTORE 9001 

READ CS: IF CS="[I" THEN 1200 

READ DS,VS,DTS 

IF CS=CHRS(X) THEN A=A+VAL(V$> 

GOTO 1170 
GOSUB 370 

POSITION 21,17:? AS 
TRAP 1220:POSITION 2,20 

? "TYPE DESCRIPTION OF NEW ITEM OR MOV 
E CURSOR TO EDIT AN ITEM ON THE SCREE 
N.C14 SPACES! { = } H I T a:J^iU:rM C = } " 
POSITION 1,22:POKE 752,0:? " " ; 

OPEN #1,4,0,"K" 

GET #1,R:CLOSE #1:IF R=155 THEN 1530 
IF (R >64 AND R<91> THEN 1380 
IF (R< 28 AND R>31> THEN 1150 
INPUT #2,IS:POKE 752,1 
R=VAL(IS(1,3)) 

DS=IS(6,18) 

VS=IS(20,28) 

D TS =IS(30,37) 

CS=IS(4,4) 

GOSUB 470 

? "(DOWN!";9000+R;" DATA ";CS;CMS;DS;C 
MS;VS;CMS;DTS:GOSUB 500 
GOTO 1100 

POSITION 2,22:PUT #2,R:DS=SS:DS(1,1)=C 
HRS(R) 

IF I>13 THEN POSITION 2,19:? " 

C3 g-r-TH I: MII'l:1 ;MO:» i: mil N : : 

EjHB" ; : GOTO 1100 
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KM 1390 

OF 1400 
EL 1410 
KH 1 420 

Cl 1430 
6B 1440 

61 1450 
JD 1460 

DE 1470 
KO 1480 
CF 1490 
MO 1500 

PO 1510 
DC 1520 
CN 1530 

LO 1540 

BD 1550 
FK 1560 
NB 1570 
KO 1580 

IK 1590 
NP 1600 
JN 16 10 
LH 1620 
MB 1630 
OB 1635 
HB 1640 
LO 1650 
JB 1660 
NB 1670 
BB 1680 

KN 1690 
MI 1700 
OE 1710 
OE 1720 
CC 1730 
LL 1740 
IJ 1750 
JD 1760 
BK 1770 


FOR K=2 TO 13:GET #2,R:IF R=155 THEN P 

OP :GO TO 1410 

D*(K,K )=CHR$(R):NEXT K 

TRAP 1410:GOSUB 1580 

R=P+1:POSITION 2+(R<100)+(R<10),1+3:? 

R;CHR*( X ) ; 

POSITION 7,1+3:? D* 

POSITION 2,20:? "ENTER VALUE: " ; : INPUT 
#2,A:GOSUB 370:V*=A* 

POSITION 21,1+3:? V* 

GOSUB 1580:POSITION 2,20:? "ENTER VALU 
AT I ON DATE (MM/DD/YY) : "; : INPUT #2,DT* 

IF DT* = "" THEN DT$=P$ 

POSITION 31,1+3:? DT* 

P=P+1:1=1+1:POKE 752,1:G0SUB 470 
? "CDOWNJ";9000+P;" DATA ";CHR$CX);CM* 

;D*;CM*;V*;CM*;DT*:GOSUB 500 
POSITION 2,22 
IF I<14 THEN 1100 

GOSUB 1580: POSITION 2,20:? "PRESS ED 
[33* TO CHANGE CATEGORIES." 

POSITION 2,22:? "PRESS WHEN A 

LL DATA ENTERED. " 

IF PEEK(53279)=5 THEN 800 
IF PEEK(53279)=3 THEN RETURN 
GOTO 1550 

POKE 752,1:POSITION 2,20:? " 

C 4 DEL LINE>":RETURN 

REM - NET WORTH CALCULATION 

GOSUB 350 

FOR 1=0 TO 26:V(I)=0:PC(I)=0:NEXT I 
RESTORE 9001 

READ C*:IF C*="[J" THEN 1680 
READ D$,V$,DT$ 

C=ASC(C*)-64 
V(C)=V(C)+VAL(V*) 

V(0)=V(0)+VAL (V*) 

GOTO 1630 

POSITION 4,2:? "CATEGORY{12 SPACESJAMOU 
NT -C 3 SPACESJPERCENT" ; 

RESTORE 8010:1=0 
TRAP 1800 

READ CAT*:IF CAT*="d" THEN 1800 
C=ASC(CAT*(1,1))-64 
1=1+1:IF I>16 THEN STOP 
POSITION 2,3+1:? CAT* 

A=V(C):GOSUB 370 
POSITION 22,3+1:? A*; 
PC(C)=INT(100*V(C)/V(0)) 
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KQ 1780 
ND 1790 

hg 1800 

HD 1810 
FH 1820 
KO 1830 
OK 1840 
AK 1850 

IJ 1860 
LA 1870 
OJ 1880 
ND 1890 

GK 1900 

GB 1910 

OG 1920 
AB 1930 
OD 1940 
PH 1950 

CL 1960 

NL 1970 
KL 1980 
EF 1990 
DL 2000 
PN 2010 
PP 2020 
NN 2030 
OF 2040 

HE 2050 
DP 2060 
HP 2070 
CD 2080 
AH 2090 
HA 2100 
NO 2 1 1 0 
HI 2120 
NL 2130 
CO 2140 
JG 2150 

KJ 2160 
LP 8000 


POSITION 34+(PC(C)<100)+(PC(C)<10),3+1 
: ? PC(C) ; 

GOTO 1710 

POSITION 7,5+1:? "TOTAL"; 

A = V(0):GOSUB 370 
POSITION 22,5+1:? A* 

PC(0)=100 

POSITION 34,5+1:? PC ( 0 ) ; " 7. " ; 

POSITION 2,22:? "PRESS gjUSg TO RES 
UME. " 

IP PEEK(53279)<>3 THEN 1860 

RETURN 

GOSUB 350 

? "SAVE PROGRAM AND DATA FOR NEXT SESS 
ION" 

POSITION 5,5:? "1. TURN OVER TAPE AND 
REWIND." 

POSITION 5,7:? "15 SPACES>SAVING COUNT 
AND DATE. . . " 

GOSUB 460 

? "CDOWNJ";340;" DATA ";P;CM*;P* 

GOSUB 500 

POSITION 5,7:? "2. PRESS AND 

POSITION 5,9:? "3. PRESS AFT 

ER BUZ ZER til SPACES7RINGS TWICE." 

TRAP 1990 

LPRINT 

CSAVE 

POSITION 5,12:? "4. REWIND TAPE." 

POKE 752,0:END 

REM - OBSOLETE DATA DELETE 

GOSUB 350 

POSITION 2,10:? "Do you REALLY want to 
erase your data?" 

OPEN #1,4,0,"K" 

IF PEEK(756)=255 THEN 2060 

GET #1,R:CLOSE #1 

IF CHR*(R)<>"Y" THEN RETURN 

POSITION 2,10:? S* ,"ERASING DATA..." 

FOR LINE=9001 TO 9000+P 

GOSUB 460 

? "(DOWN)";LINE 

GOSUB 500 

NEXT LINE 

P=0:GOSUB 460:? "(DOWN)";340;" DATA "; 

P;CM*;Pt:GOSUB 500 

RETURN 

REM -CATEGORIES 
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rj 8010 
AD 8020 
EO B030 
PJ 8040 
6J 8050 
NB 8060 
ND 8070 
LJ B990 
LK 9990 
HI 10000 


DATA BONDS 

DATA CASH 

DATA EQUITIES 

DATA FIXED TERM DEPOSITS 

DATA OTHER 

DATA PERSONAL PROPERTY 
DATA REAL ESTATE 
DATA U 
DATA [1 
END 
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Data Management 
System 

An Atari Database with Application 
Generation Features 

Ronald Marcuse 


This generic database system can be used for many applications. 
The next article, "Mailing Label Utility," is an example of its 
adaptability. Requires 32K RAM and a disk drive. 

My initial excursion into the world of microcomputers began 
soon after I purchased my Atari 800. It took perhaps a month 
for my data processing (meaning file processing) background 
to emerge from the myriad of games that I was coding and 
playing on the Atari, but this was inevitable. Don't misunder¬ 
stand me—the games are fun, but I personally wanted more 
from the computer than just zapping Zylon Raiders or hitting 
a quarter-inch baseball across a 25-inch screen. 

In the ensuing month, information processing systems 
materialized in all shapes and sizes, covering such important 
data as telephones/addresses, appointments, and the Star 
Wars figure collection of my offspring (which turned out to be 
the largest of my numerous files). When I saw myself coding a 
catalog system to keep track of all the other catalog/ 
information systems, I vowed to find a better way. 

This leads us to the subject of the article-—an Atari data 
management/database system. There is a great deal of similar¬ 
ity between different systems that are designed to track dif¬ 
ferent data; in fact, the similarities usually far outweigh the 
differences. The variance in file/record attributes doesn't re¬ 
quire a markedly different approach in getting to and from the 
storage medium. If you were to store these file/record 
attributes in, say, a data dictionary, you could use the dic¬ 
tionary to supply the parameters to drive generalized file/ 
screen/printer IO routines. You'd need only to specify the 
attributes to generate the application. An information system 
needed to track paper clips could be implemented in minutes. 
That, in a nutshell, is the concept. 
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The Dictionary 

The data dictionary function, as the front-seat driver of the en¬ 
tire vehicle, deserves clarification first. Its primary function is 
to create and monitor the individual dictionary records contain¬ 
ing the attributes of the database on that particular disk. Within 
this scheme, the ADD logic resides in lines 8000-8630, the IN¬ 
DEX begins at line 6500 and continues with the subroutine in 
9200-9320, the INQUIRY or LIST is in lines 7000-7080, and 
the DELETE in 7500-7640. Subroutines shared by one or 
more of these modules are PAUSE, 6300; CREATE FILESPEC, 
6310-6320; PRINT DIC RECORD, 8750-8870; LOAD VARI¬ 
ABLES FROM DIC RECORD, 9000-9050; and READ DIC 
RECORD, 9200-9320. Additionally, located from 9801 to 9846 
are short subroutines of the variety GOSUB NNNN + I utilized 
in moving headers and data elements to and from larger strings. 
Tables 1 and 2 list the format of the dictionary record (REC$) 
and other variables. 

In operation, when you're creating a new application/ 
database, you would specify a title (25 characters maximum), 
data set name (8 chararacters maximum), and the number of 
data elements (6 maximum) within the proposed record. A 
loop (lines 8110-8200) would step you through the process of 
entering the heading (12 characters), size (30 maximum), and 
editing requirements of each data element. 

Editing criteria of N (Numeric), D (Date), and $ (Dollar) 
may be requested. I've imposed a nominal limit of six data 
elements with 30 characters maximum for any one element 
and a total record length of 120 bytes (for no other reason 
than I happened to like those numbers on that day). If the 
data dictionary has not been initialized on the disk, you'll be 
prompted during the add routine for permission to create it 
(lines 8610-8630). 

There is a conspicuous absence of any UPDATE functions 
on the data dictionary menu. This was intentional. Changing 
the attributes of a given database after it has been created and 
fed huge mounds of raw data may be detrimental to your 
health. (Picture the File Manager going after a 50-byte record 
that it now believes is 80 bytes long.) 
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The Manager 

The File Management system, with its menu residing in lines 
500-670, requires that the operator first select one of the 
databases on that disk (lines 750-886); an index is made avail¬ 
able by entering a single character I. The selection process 
reads the data dictionary file and, upon finding your request 
(filename is the key), moves the dictionary record into the ap¬ 
plicable variables. Once loaded, these variables control the 
execution of the other File Management modules. These are 
ADD RECORD (lines 1000-1200), LIST RECORD/INQUIRY 
(2000-2440), and UPDATE RECORD (3000-3310). Note that 
typing E on any function menu will return program control to 
the module one step higher in the network. Tables 1 and 2 list 
the variables used in these procedures. A SEARCH procedure 
is generated in lines 4000-4210 that can be utilized by both 
the INQUIRY/LIST and UPDATE functions. You need only to 
specify the field number and enter the value of the characters 
to be used. By entering fewer characters than the size of the 
field, you can perform a generic search, extracting, in turn, all 
records that satisfy those requirements. 

The previously mentioned input editing is performed in 
lines 4400-4590. Selecting the output medium (screen or 
printer) is done in lines 680-730. ASCII control characters (for 
an EPSON printer), based on the attributes of the resident 
Database, are generated and sent to the device, thereby setting 
character size and tabs. The EPSON MX-80 has software- 
selectable print lines of from 40 to 132 positions. Other printers 
without this feature may require a modified approach or a 
limitation in your record size. 

The Sort 

The SORT routine (Program 2) is an example of the “selection 
and exchange" variety. Logic similar to that contained in the 
database manager allows you to select the file to sort or list 
the index of that particular disk (lines 4000-4340). The choice 
of sort key and whether "ascending" or "descending" occurs 
is in lines 5000-5070. The file is input and stored in the 
DIMensioned string X$ in lines 5100-5160. The variables I, J, 
and K are used as pointers during the loops through X$ as fol¬ 
lows: I represents the sorted/not sorted boundary X$, J is the 
current comparison with the previously selected lowest or 
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highest value (DS$), and K is the location of this previous 
value. 

An exchange between X$(K,K + L) and X$(I,I + L) occurs if 
an unsorted condition is detected on any loop. The sort ter¬ 
minates when the sorted boundary is equal to the size of X$. 
Then, X$ is written to the disk, the original file is deleted, and 
the new file is renamed. 

At this point it would probably be helpful for us to single- 
step through the code, but we have neither the time nor the 
space to do this. But we can examine at least one aspect of the 
structure, notably the interaction of the subroutines that per¬ 
form the input and handling of an existing data dictionary 
record. Entry to the READ DICTIONARY routine (9200-9310) 
is from several possible locations: LIST INDEX, both FMS and 
DIC (via line 6500); DICTIONARY INQUIRY/LIST (line 
7080); and SELECT DATABASE (line 800). Two variables 
(loaded by the calling module) enable this one subroutine to 
perform several functions. T represents the "type" of request 
(0—index; 1—loop through to find and load data dictionary 
record with key equal to value in FILD$; 2—list single data 
dictionary record with key FILD$; 9—browse through all data 
dictionary records). The variable R returns control back to a 
specific line number in the event of a DISK I/O error being 
TRAPped to line 9500. 

As the program executes each line within the routine, pro¬ 
gram control is modified based on the value of T during that 
call. Options include loading the full record into all of the dic¬ 
tionary variables (9000-9050), listing the dictionary record to 
the screen (8750-8870), chatting with the operator (9280-9290), 
and a "quickie" index. The subroutines mentioned above, as 
well as the balance of the program, work in a similar manner. 

Typing It In 

Both program listings contain unprintable ASCII characters 
used for screen and printer control. Be sure to check the 
Appendices for how to enter these characters. Because the two 
programs call each other by name, you must save the two as 
"D:DMSDB" and "D:DMSSORT". 
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Table 1. Data Dictionary Record (REC$) 


Variable 

Position 


Name 

Within REC$ Description 

FILD$ 

1-8 

Application filename 

APP$ 

9-33 

Application title 

DL(1) 

34-45 

Lengths of 6 (max) data elements 
within record (2 char ea) 

DL(6) 

HD1$ 

46-117 

Heading titles (12 char) 

HD6$ 



DE(1) 

118-123 

Editing criteria for elements 

0 = Alphanumeric 1 = Numeric (N) 
2 = Date(D) 3 = Dollar($) 

DE(6) 

124 

Delimiter ("*") 

Table 2. Other DMS/DB Variables 

Name 

Size 

Description 

RL 

(var) 

Application data set record length 

NE 

(var) 

Number of data elements 

DM$ 

8 

DMX/DB filespec (D:DMS.DB) 

FIL$ 

14 

Application filespec (D:filename.DB) 

1$ 

1 

Operator response to questions 

IN$ 

31 

General input of data and temp stor 

SF 


SL 



SS 

(var) 

Used by search function 

SE 

SV$ 



FD1$ 

(var) 

Application data elements 

FD6$ 

T 

_ 

Tran type passed to I/O routines 

EOF 

— 

End of file counter 

i,j,k,l,n 

— 

Temp stor for looping, length, etc. 

ERR 

— 

Input data error flag 

R 

— 

Error message return line # 

P 

— 

Printer/screen indicator (1= Print) 

S$,X$,P$,N$ 

— 

Messages, prompts 
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Program 1. DMSDB 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HJ 40 POKE 82,0 : POKE 83,39:G0T0 100 

KG 50 DIM APP$ (26) , FIL$ ( 14) , FILD$ (9) , HD1$ ( 12) , 
HD2$(12) ,HD3$(12) ,HD4$(12) ,HD5*(12 > 

IL 60 DIM HD6$(12) , I* (1 ) , REC* ( 132) , IN4(31) ,DM$ 
(8) ,DL (6) ,DE(6 > 

GN 65 DIM S$ ( 15) , X$ (5) , P$ (24) , N$ ( 16) : N$="[H3EIE 
!«: [ill UillJ :DMt=" D:DMS.DB" 

DE 70 P$="PRESS RETURN TO CONTINUE" : S $ = " {DOWN! 

SELECT OPTION: " : X $ = " r=l 
Efl 75 FOR 1 = 1 TO 6 : DL(I)=0:DE(I)=0:NEXT I 
BJ 80 REC*<1>=" ":REC*<132)=" " : R E C $ (2) = R E C $ : R 

ETURN 

JB 100 GRAPHICS 0:? "{DOWN! DATA MANAGEMENT SY 
STEM - VER 1.2":CLR :DIM I $ ( 1 > 

ND110 ? " CDOWNJ f5 SPACESIPRIMARY OPTION MENU" 

:POKE 16,64:POKE 53774,64 
IE 120 ? " I DOWN > D - DATA DICTIONARY FUNCTIONS 

":? "C5 SPACES!(DEFINE NEW APPLICATION 

& DATA)" 

BK 130 ? "{DOWN! R - EXEC FILE MANAGEMENT SYST 
EM":? "C5 SPACES! (ACCESS EXISTING DATA 

BASE) " 

DD 150 ? " {DOWN! S - CALL DMS SORT UTILITY":? 

"{DOWN! E - END (TERMINATE DMS)" 

KF 160 ? : ? "SELECT OPT I ON : " ; : I NPUT I$:IF I*=" 

R" THEN 500 

EP 180 IF I$="D" THEN 6000 

HE 200 IF I$="S" THEN RUN "D: DMSSORT" 

BG210 IF I $ = " E " THEN GRAPHICS 0 : END 
KI 220 ? "emEDEE" : GOTO 160 

FO 490 ? ” CDOWNISELECT DATA SET 1ST":G0SUB 630 
0 

HI 500 ? " CCLEAR! {DOWN! C3 SPACES!DMS FILE MANA 

GEMENT MENU" 

6H 520 IF NE< >0 THEN ? :? , APPt: IF P=1 THEN ? 

KC 540 ? "{DOWN! S - SELECT DATA BASE":? " A - 
ADD" 

DH 580 ? " L - LIST / INQUIRY":? " U - UPDATE" 

HL 590 ? " P - PRINTER (SCREEN DEFAULT)":? " E 

- END (RETURN TO DMS MENU)" 

JD 600 ? : ? "SELECT OPTION: : INPUT I$:IF I*=" 

E" THEN 100 

DD 620 IF I$="S" THEN 750 
EH 630 IF I $ =" A" THEN 1000 
FE 640 IF I $ = " L " THEN 2000 
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FP 650 IF I*="U" THEN 3000 
DG 660 IF I*="P" THEN 6B0 
Lfl 670 ? " ETrLTm^ire 1 ' : GOTO 600 
PJ 680 IF NE = 0 THEN 490 

GH 690 ? : ? "TYPE: P-PRINTER S-SCREEN" : INPUT I 
*:IF I$<>"P" THEN P=0:GOTO 500 
AF 700 P = l:INt="{RHESC}D{5 SP ACES >{,>": I F RL > 
55 OR N >4 THEN IN* ( 1 , 1)="tO> " 

HF710 L= 1 : FOR 1=2 TO NE : J =DL ( I - 1 ) : I F J<12 THE 
N J= 1 2 

JL 720 L=L+J+2: IN* ( 1+2, 1+2) =CHR* (L) : NEXT I 
6F 730 R = 690: TRAP 9510:LPRINT IN*:TRAP 40000:S 
OSUB B0:GOTO 500 

DE 750 ? " -C C L E A R > { D O W N > 14 SPACES> DAT A BASE SEL 
ECTION":CLR :GOSUB 50:R=760 
01760 ? " CDDWNJENTER DATA SET NAME (I FOR IND 
EX)":? :? P*; " (END) " 

NO 770 INPUT FILD*: IF LEN(FILD*)=0 THEN 500 
HJ 7B0 IF LEN (FILD*) =1 AND FILD*="I" THEN GOSU 
B 6500:GOTO 760 

LD 800 T= 1 : GOSUB 9200: IF EOF = 0 THEN 500 
GH B20 ? " CDQWN3-DATA SET LOADEDGOSUB 6300 
6B 830 RL= 1 : FOR N=1 TO NE:GOSUB BB0 + N: RL = RL + DL 
(N):NEXT N 

DG 8 50 DIM DS* (RL) , SV* (30) : FOR 1 = 1 TO RL:DS*(I 
,I)=" ":NEXT I:GOTO 500 

PEBB1 DIM FD1* (DL (N> ): RETURN 
PGBB2 DIM FD2* (DL (N) ): RETURN 
PI B83 DIM FD3* (DL (N) ): RETURN 
PK B84 DIM FD4* (DL <N> ): RETURN 
PH 885 DIM FD5* (DL (N) ): RETURN 
P0 8 86 DIM FD6* (DL (N) ): RETURN 
BH 1000 IF NE = 0 THEN 490 

DC 1005 R = 500: TRAP 9500:XIO 36, #2,0,0, FIL*: OPE 
N #2,9,0,FIL*:TRAP 40000 
AI 1010 ? " CCLEAR> {DOWN> <3 SPACES} " ; APP*: ? " 

C DOWN > TO ADD RECORD, ENTER:" 

JO 1040 FOR N= 1 TO NE 

FK 1050 GOSUB 9B20+N: IF DE(N)<>2 THEN ? " ( " ; D 

L(N);" CHAR MAX)":GOTO 1070 
PA 1060 ? " (6 CHAR - MMDDYY) " 

HL 1070 INPUT IN*: L = LEN ( IN*) : IF N= 1 AND L = 0 TH 
EN 1180 

61 1075 GOSUB 4400: IF ERR< >0 THEN 1070 
NJ 1080 GOSUB 98 1 0 + N: NEX T N:GOSUB 4000 
KH 1170 ? #2 ; DS* : ? " CDOWN> TRANSACT I ON ACCEPTED 

II 

0A 1180 ? " IDOWN>TYPE E FOR FMS MENU":? P* 

PC 1190 INPUT I*: IF I*<>"E" THEN 1010 

IH 1200 CLOSE #2 : X I 0 35 , #2,0,0 , F I L* : GOTO 500 
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BN 2000 
NB 2020 


HD 2030 

KA 2050 
LA 2060 
HB 20B0 
HN 2090 

LJ 2100 
60 2300 

LK 2310 

AI 2320 
HO 2330 
PA 2340 
KP 2350 

PC 2360 

6D 2370 

6L 2375 

00 2380 

CA 2390 
HB 2400 
PC 24 10 
HO 2420 
PH 2430 
HD 2435 
EP 2440 
BO 3000 
FL 3020 

PJ 3040 

DF 3060 
AN 3080 

AL 3100 
BC 3120 


BE 3 1 3 0 


IF NE=0 THEN 490 

? "{CLEAR!{DOWN! ";APP*:7 "{DOWN} IN 
QUIRY / LIST": IF P=1 THEN 7 , , "CUP} EEO 

? "{DOWN} A - LIST ALL RECORDS":? " S 
- SEARCH ON KEY" 

? " E - END (RETURN TO MENU)":T=9 
? S*;:INPUT I$:IF I*="E" THEN 500 
IF I $ ="A" THEN 2300 

IF I$="S" THEN T=1:? "{CLEAR}":GOSUB 4 
100:GOTO 2300 
7 X $:GOTO 2060 

1=0:EOF=0:R=2000:TRAP 9500:OPEN #2,4,0 
, FIL$ 

TRAP 2420:INPUT #2,DS$:TRAP 40000:IF T 
>8 THEN 2330 

IF SV*<>DS$(SS,SE) THEN 2310 
EOF=EOF+l:IF P<>1 THEN 2400 
L=1:J = 1: IF I>0 THEN 2370 

R=2440:TRAP 9510:LPRINT "{I}{N}";APP*; 
"{T}{K} " 

LPRINT HD 1 $; "{I}“;HD2$; "{I}";HD3$; " 
{I}" ;HD4$; " {I}";HD5*; "{I}";HD6$; "{K}" 
FOR N=1 TO NE:K=DL(N):IF K<12 THEN K=1 
2 

REC$(J,J + DL(N)—1 )= DS$(L,L + DL(N)—1) :L = L 
+ DL (N) :J = J+K + 2:NEXT N 

TRAP 9510:LPRINT REC*(1,J) : I = I + 1: I F I< 
55 THEN 2310 

1=0:LPRI NT "{L}":GOTO 2310 
GOSUB 4300:7 :? P*;" (E TO STOP)" 

INPUT 1$:IF I*<>"E" THEN 2310 
IF EOF=0 THEN 7 N* 

IF EOF >0 THEN 7 "REC COUNT- ";EOF 
IF P=1 THEN LPRINT "{L}" 

CLOSE #2:GOSUB 6300:GOTO 2020 
IF NE=0 THEN 490 

7 "{CLEAR}{DOWN} ";APP*:7 "{DOWN} UPD 
ATE / DELETE";:GOSUB 4100 

R=500:TRAP 9500:OPEN #2,4,0,FIL$:OPEN 

#3,8,0,"D:TEMP":EOF=0 

TRAP 3250:INPUT #2,DS$:TRAP 40000 

IF SV*<>DS*(SS,SE) THEN 7 #3;DS*:GOTO 

3060 

GOSUB 4300 

7 "{DOWN}ENTER: FIELD # TO UPDATE; D T 

O DELETE":? "PRESS RETURN TO WRITE REC 

II 

EOF = EOF+l: INPUT I *: IF LEN(I$)=0 THEN 7 
#3;DS*:GOTO 3060 
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IF 3135 
HJ 3140 

HP 3150 

JK 3170 

EH 3180 
HI 3250 

OL 3260 
II 3270 


DK 3280 
IE 3290 
HA 3300 

JF 3310 
DH 4000 

FE 4010 

6F 4020 
KN 4 100 

EH 4 1 1 0 

HB 4 120 

PG 4 130 

HF 4 140 
JA 4160 

AL 4 1 7 0 

JB 4 180 

PF 4 190 

ID 4200 
IE 4210 
EO 4300 
HD 4 3 1 0 
LC 4320 

LD 4330 

IA 4400 


IF I * = " D " THEN 3060 

TRAP 3120sN = VAL(It) :TRAP 40000:IF N< 1 
OR N >NE THEN 3120 

? "CDOWN1ENTER NEW ";sGOSUB 9820+Ns? " 

II 

INPUT IN$:L=LEN(IN$)sGDSUB 4400:IF ERR 
<>0 THEN 3150 

GOSUB 9S10+N:GOSUB 4000:GOTO 3100 
FOR 1 = 1 TO LEN<IN*):IN*(I,I)=" "sNEXT 
I: IN* ( 1,7)="D:TEMP, " 

IN*(8,7+LEN(FIL*)-2)=FIL*(3) 

CLOSE #2:CLOSE #3:XI0 36, # 2 ,0,0,F I L*: X 
10 33,#2,0,0,FIL* 

XIO 32,#3,0,0,IN*sXIO 35,#3,0,0,FIL* 

IF EOF=0 THEN ? N* 

? "CDOWNJMORE UPDATES? (Y OR N)"sINPUT 
I*: IF I *="Y" THEN 3000 
GOTO 500 

FOR 1 = 1 TO LEN IDS*) : DS* ( I , I ) = " "-.NEXT 
I 

L=1:FOR N=1 TO NEsGOSUB 9840 + N:DS* ( L,L 
+DL(N)-1)=IN* 

L = L + DL(N) sNEXT N:DS*(RL)= " # "s RETURN 


? " SELECT KEY: 

":? :FOR 

1 = 1 

TO NE:? " 

. j . •• ii . 

GOSUB 9820+1:? 

" " : NE X T 

I : ? 

:IF SF=0 T 

HEN 4140 
? "PRESS RETURN 

FOR KEY: 

" : ? 

" 1ST ";SL 


;" POS OF "; 

GOSUB 9820+SF:? " <";SV*;">":? " ":? " 

OR, 

? "ENTER KEY FIELD 

TRAP 4200: INPUT SF:TRAP 40000: IF SF< 1 
OR SF >NE THEN ? X*:GOTO 4140 
? "ENTER VALUE OF GOSUB 9820+SF:? " 

(1-";DL(SF) ; " ) " 

INPUT SV*:SL = LEN(SV*) : IF SL<1 OR SL >DL 
(SF) THEN ? X*;" LEN":GOTO 4170 
SS=1: IF SF >1 THEN FOR 1=2 TO SF:SS = SS + 
DL(1-1):NEXT I 

IF SF = 0 THEN ? X *:GOTO 4160 
SE=SS+SL-1:RETURN 

L=1:FOR N=1 TO NE: IN* = DS* (L,L + DL (N)-1 ) 
GOSUB 9810+N:L=L+DL(N):NEXT N 
? "CCLEARJ { D O W N > ";APP*:? :FOR N=1 TO 

NE 

? N;" ";:GOSUB 9820+N:GOSUB 9840+N:? " 

";IN*:NEXT N:RETURN 
ERR = 0: IF L<1 OR L >DL(N) THEN ERR=1 
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ftP 4 4 1 0 

KK 4420 
UP 4500 

BH 45 10 
FP 4520 
HO 4530 

II 4540 

KO 4550 
DA 4560 
OH 4570 
LB 4580 
6N 4590 
EG 6000 

CE 6050 

JE 6060 

JN 6080 

61 6100 
HO 6120 
KK 6130 

IK 6 1 40 
II 6150 
EP 6 1 6 0 
HD 6170 
Hfl 6300 
BK 63 1 0 

KF 6320 

HJ 6500 

LN 7000 

LN 7020 

OD 7030 
IH 7040 
EL 7050 

HF 7060 
EG 7070 
OE 7080 


□ N DE(N) GOSUB 4500,4520,4560:IF ERR< > 
0 THEN ? X* 

RETURN 

FOR 1=1 TO L:J = ASC<IN* (I, I ) > : IF J<48 O 
R J >57 THEN ERR=1 
NEXT I:RETURN 

GOSUB 4500:IF L<>6 THEN ERR=1 
IF IN*(1,2)<"01" OR IN*(1,2)>"12" THEN 
ERR = 1 

IF IN*(3,4)<"01" OR IN*(3,4)>"31" THEN 
E R R = 1 
RETURN 

IF IN*(L-2,L — 2)< >" " THEN ERR=1 

TRAP 4590:I=VAL(IN*(1,L)):TRAP 40000 

RETURN 

ERR=1:GOTO 4580 

? "{CLEAR}<DOWN> <3 SPACESIDMS DATA DIC 
TIONARY MENU":CLR :GOSUB 50 
? "IDO WN > A - ADD NEW APPLICATION / DA 
TA BASE" 

? " I - LIST DICTIONARY INDEX":? " L - 

LIST CURRENT DB DESCRIP" 

? " D - DELETE DATA BASE":? " E - END 

(RETURN TO DMS MENU)" 

? :? S*;:INPUT I* 

IF I*="A" THEN 8000 

IF I*="I" THEN R=6000:GOSUB 6500:? :? 

P*;:INPUT I*:GOTO 6000 
IF I *="L" THEN 7000 
IF I*="D" THEN 7500 
IF I*="E" THEN 100 
? X *:GOTO 6100 

FOR 1=1 TO 150:NEXT I:RETURN 
FOR L=1 TO LEN(FILD*):IF FILD*(L,L)<>" 
" THEN NEXT L 

L=L-1:FIL*(1,2)="D:":FIL*(3,2+L)=FILD* 
(1,L):FIL*( 3 + L )=".DB":RETURN 
? "CCLEAR>CDOWNI DATA SET INDEX":? :T 

=0:GOSUB 9200:RETURN 

? "(CLEAR)(DOWN) DATA DICTIONARY INQU 

IRY":? "(DOWN) A - ALL FILES":T=9 
? " S - SINGLE FILE":? " E - END (RETU 
RN TO MENU)" 

? S*;:INPUT I*:IF I*="E" THEN 6000 
IF I * ="A" THEN 7080 

IF I*="S" THEN ? "ENTER FILE NAME" :T = 2 
:GO T 0 7070 
? X *:GOTO 7030 

INPUT FILD*:IF LEN(FILD*)=0 THEN 7060 
R=7000:GOSUB 9200:GOTO 7000 
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NJ 7500 


KB 7510 

OH 7520 

IB 7530 
HK 7540 

CP 7550 
EK 7560 

HO 7570 

ID 7600 
PS 7610 

PD 7620 

NA 7640 
AS 8000 


JA 8010 

ID 8020 

OB 8030 

AF 8040 

BI 8060 
LH 8080 


JK 8090 
CO 8100 
HO 8 1 1 0 


LL 8120 

JF 8125 
FF 81 30 

HA 8140 

KL 8150 
PL 8160 
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? "CCLEAR}(DOWN) TO DELETE DICTIONARY 
ELEMENT AND":? " RELATED FILE, TYPE FI 
LE NAME:" 

? P*;" (CANCEL)":INPUT FILD*:IF LEN(FI 
LD*)=0 THEN 6000 

R=7500:TRAP 9500:OPEN #2,4,0,DM* :OPEN 

#3,8,0,"D:TEMP":EOF=0 

TRAP 7600:INPUT #2,REC*:TRAP 40000 

IF FILD*<>REC*(1,LEN(FILD*)) THEN ? #3 

;REC*:GOTO 7530 

EOF=EOF+l:GOSUB 9000:GOSUB 8750 
? "TYPE D TO DELETE" ;: INPUT I*: IF I*<> 
"D" THEN ? "SAVED":? #3;REC*:GOTO 7530 
? "DELETED": X10 36,#4,0,0,FIL*: X I 0 33, 
#4,0,0,F I L* :GOTO 7530 
IF EOF=0 THEN ? N* 

CLOSE #2:CLOSE #3:XI0 36,#2,0,0,DM*:XI 
0 33,#2,0,0,DM* 

XIO 32,#3,0,0,"D:TEMP,DMS.DB":XIO 35,# 
3,0,0,DM* 

GOTO 6000 

PRINT "£CLEAR}£DOWN> ADD TO DATA DICT 
IONARY":? "£DOWN> ENTER APPLICATION NA 
ME (1 TO 25 CHAR)" 

INPUT APP*:L=LEN(APP*):IF L<1 OR L>25 
THEN ? X *:GOTO 8010 

? "ENTER FILE NAME (1 TO 8 CHAR)":? " 
FILESPEC WILL BE 'D:XXXXXXXX.DB’ " 
INPUT FILD*:L=LEN(FILD*):IF L<1 OR L>8 
THEN ? X *:GOTO 8030 

IF FILD*(1,1)<"A" OR FILD*(1,1)>”Z" TH 
EN ? X *:GOTO 8030 
GOSUB 6310 

? "CDOWNJ (MIN REC LEN=10, MAX=120)":? 

"£DOWN}ENTER # OF DATA ELEMENTS IN RE 
C (2-6)" 

TRAP 8080:INPUT NE:TRAP 40000 
IF NE< 2 OR NE > 6 THEN ? X*:GOTO 8080 
RL=0:FOR 1=1 TO NE:? " £CLEAR>£DOWN> F 
OR DATA ELEMENT # "; I; " OF ";NE; " ENTE 

R: " : ? 

? "HEADING (1-12)":INPUT IN*:L=LEN(IN* 

) : IF L<1 OR L >12 THEN ? X*:GOTD 8120 
GOSUB 9800+1 

? "ELEMENT LENGTH (1 TO 30)":? " (TOT 

REC LEN IS ";RL;")" 

TRAP 8130:INPUT L:TRAP 40000:IF L<=0 0 
R L >30 THEN ? X*:GOTO 8130 
DL(I)=L:RL=RL+L 

? "EDITING? (N:NUMERIC, D-DATE, *:DOLL 
AR)":? "RETURN TO SKIP" 




Chapter 1 


FN 8170 

FD 8180 
DF 8190 
FC 8200 
KA 8220 

HF 8300 
DJ 8320 

PE 8340 
JF 8360 

PC 8380 

CJ 8390 

AL 8400 
OD 8420 

1C 8430 

IB 8450 
HL 8460 

CP 8600 

DI 86 10 

AP 8620 
DL 8630 
OP 8750 


LP 8760 
HJ 8780 


HI 8800 

KD 8820 
LI 8830 
fIF 8840 
BH 8850 
EG 8870 

HD 9000 
HA 9010 


INPUT 1$:DE(I)=0; IF I*="N" THEN DE(I) = 
1 

IF I$="D" THEN DE(I)=2 
IF 1*="*" THEN DE(I)=3 
NEXT I 

IF RL<10 OR RL >120 THEN ? "REC LEN=";R 

L; " " ; X*:GOTO 8080 

REC*(1,8)=FILD*:REC*(9,33)= APP* 

FOR 1=1 TO 6:REC*(32+1*2,33+1*2)= STR*( 
DL ( I ) ) 

REC*(117+1,117+I)=STR*(DE(I)):NEXT I 
REC*(46,57)=HD1*:REC*(58,69)=HD2*:REC* 
(70,81)= HD3* 

REC*(82,93)=HD4*:REC*(94,105)=HD5*:REC 
$(106, 117)= H D 6 * :REC*(124)=" * " 

GOSUB 8750:? "CDOWN>TYPE Y TO CREATE D 

ATA BASE" 

INPUT I $: IF I$<>"Y" THEN 6000 

TRAP 8600:XIO 36,#2,0,0,DM*:OPEN #2,9, 

0, DM* 

? #2;REC*:CLOSE #2:XI0 35,#2,0,0,DM*:T 
RAP 40000 

? "DATA BASE CREATED" 

OPEN #3,8,0,FIL*:CLOSE #3:XI0 35,#3,0, 
0,FIL*:GOTO 6000 

STATUS #2,ST:IF ST<>170 THEN R=8390:GO 
TO 9500 

? DM*;" NOT ON DISK":? "TYPE Y TO INIT 
IALIZ E" 

INPUT 1$: IF I *< >"Y" THEN 6000 
OPEN #2,8,0,DM*:GOTO B430 

? " £CLEAR> { C L R TAB}{TAB>{CLR TAB){ TAB > 
CCLR TAB>CTAB>CCLR TAB){TAB} {CLR T AB > 
{TABXCLR TABXDOWN> DATA DICTIONARY 
RECORD" 

? "C DOWN > FILE NAME - ";FILD*:? " APPL 

ICATION - ";APP* 

? " {DOWN} EL{SET TAB J EM # {SET TAB!HE 
AD ING{6 SPACES>LE{SET TABJ NGTH 
{SET TAB) EDIT?":? 

FOR 1 = 1 TO NE:? "{TAB>"; I ; "{TAB> " ; :GOS 
UB 9820+1:? "{TAB>";DL ( I ) ; "{TABJ"; 

IF DE(I)=0 THEN ? " " 

IF DE(I)=1 THEN ? "NUMERIC" 

IF DE(I)=2 THEN ? "DATE" 

IF DE(I)=3 THEN ? "DOLLAR" 

NEXT I:? :? " RECORD LENGTH = ";RL:RET 

URN 

FILD*=REC*(1,8):APP*=REC*(9,33) 

RL=0:NE=0:FOR 1=1 TO 6 
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KP 9020 

OP 9030 
BC 9 0 4 0 

PE 9050 
KP 9200 
AP 9210 

AB 9220 

BE 9230 
KP 9250 

MB 9280 

CD 9290 

JH 9300 
JL 9310 
KO 9320 
PO 9500 

LF 95 10 

NF 9801 
MH 9802 
MJ 9803 
ML 9804 
MN 9805 
MP 9806 
ME 981 1 
M6 98 12 
MI 9813 
MK 9814 
MM 9815 
MO 9816 
EJ 9821 
EL 9822 
EN 9823 
EP 9824 
FB 9825 
FD 9826 
HH 9841 
MJ 9842 
ML 9843 
MN 9844 
MP 9845 
NB 9846 
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DL(I)=VAL(REC*<32+1*2,33+1*2) ) : DE <I> = V 
AL(REC*(117+I,117+1)) 

IF DL(I)=0 THEN 9050 

NE = NE+1:RL = RL + DL(I) : IN*=REC$(34+I#12,4 

5+1 * 12) :GOSUB 9800+1 

NEXT I:GOSUB 6310:RETURN 

TRAP 9500:OPEN #2,4,0,DM*:EOF=0 

TRAP 9300:INPUT #2,REC*:TRAP 40000:IF 

T >8 THEN 9250 

IF T = 0 THEN ? " ";REC*(1,8) ; " ";REC*(9 

,33):GOTO 9210 

IF FILD*<>REC*(1,LEN(FILD*)) THEN 9210 
EOF=EOF+1:GOSUB 9000:IF T>1 THEN GOSUB 
8750 

IF T >1 THEN ? :? P*:IF T>8 THEN ? " TY 

PE E TO END" 

IF T >1 THEN INPUT I*:IF T>8 AND I*<>"E 
" THEN 9210 
CLOSE #2 

IF T >0 AND EOF = 0 THEN ? N*:GOSUB 6300 
RETURN 

STATUS #2 , K : ? T X * ; K : 

? P*;:CLOSE #2:INPUT I*:POP :GOTO R 
STATUS #7 , K : ? ■ X S ; K : P 

*;:INPUT I*:GOTO R 
HD 1*=IN*:RETURN 


HD2*=IN*:RETURN 
HD3*=IN*:RETURN 
HD4*=IN*:RETURN 
HD5*=IN*:RETURN 
HD6*=IN*:RETURN 
FD1*=IN*:RETURN 
FD2*=IN*:RETURN 
FD3*=IN*:RETURN 


FD4*=IN* 
FD5*=IN* 
FD6*=IN* 
? HD 1 * 
HD2* 
HD3* 
HD4* 
HD5* 
HD6* 

IN* = FD1 * 
IN*=FD2* 
IN*=FD3* 
IN*=FD4* 
IN*=FD5* 
IN*=FD6* 


:RETURN 
: RETURN 
:RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
: RETURN 
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Program 2. DMSSORT 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

BN 20 ? CHR$ (253) : GRAPHICS 0:POKE 82,0:POKE 16 

, 64:POKE 53774,64:GOTO 4000 
ON 50 DIM X* (8500) , DS* ( 124) , APP* (25) , FIL* ( 14) , 
F I LD$(8) ,HD1*(12) ,HD2*(12) 

BP 60 DIM HD3* ( 12) , HD4* ( 12) , HD5* ( 12) , HD6* ( 12) , 
I* ( 1 ) , IN* (12) ,DL(6) 

HB 70 FOR 1 = 1 TO 6 : DL ( I ) =0 : NE X T I 
El 80 RETURN 

KP 4000 PRINT " {CLEAR! {DOWN! DMS DATA BASE SO 
RT":GOSUB 50 

NN 4 0 10 ? : ? '* SELECT DATA SET;":? " (I - INDE 

X), D - DMS, E - END)" 

HO 4030 INPUT FILD*: L = LEN (FILD*> : IF L=1 AND FI 
LD*="D" THEN RUN "D:DMSDB" 

AA 4040 T=1: IF L = 0 THEN 4010 


KP 4050 

IF 

ND 

L= 1 

AND 

FILD*="E" 

THEN GRAPHICS 

HP 4060 

IF 

II 

AND 

FILD$="I" 

THEN PRINT " 


{CLEAR!{DOWN! DATA SET INDEX":? :T=0 
NH 4200 R = 4000 : TR AP 9500:OPEN # 2,4,0 , " D : D M S . D B 
":E 0 F = 0 

DA 4210 TRAP 4300: INPUT #2,DS*:TRAP 40000 
HB 4220 IF T = 0 THEN ? " " ; D S * ( 1,8 ) ; " ";DS*(9,3 

3):GOTO 4210 

OH 4230 IF F I LD*< >DS* ( 1 , LEN (FILD$) ) THEN 4210 
DO 4240 FILD*=DS$ ( 1,8) :APP*=DS*<9,33) 

EJ 4250 EOF = EOF+l : RL=1 : NE = 0: FOR 1 = 1 TO 6 
614260 DL( I )=VAL(DS* ( 32+I*2,33+I*2> ) : IF DL ( I ) 
=0 THEN 4290 

NA 4280 NE = NE+1 : RL = RL + DL ( I ) : IN* = DS* (34+1*12,45 
+1*12):GOSUB 9800+1 
PH 4290 NEXT I 

BA 4300 CLOSE #2: IF T = 0 THEN 4010 
JF 4 310 IF EOF = 0 THEN ? " rrt.IiMJ. TnTR " : ROTn 4010 
BK 4330 FOR L=1 TO LEN ( F I LD* ) : I F FI LD$ (L, L) < >" 
" THEN NEXT L 

IL 4 340 L = L—1 : FIL* ( 1,2) ="D: ":FIL* ( 3,2 + L ) =F I LD$ 
( 1 ,L) :FIL*(3 + L)=" .DB" 

CA 5000 IF NE = 0 THEN 490 

KP 5010 ? " {CLEAR J {DOWN! ";APP*:? " {DOWN!SELE 

CT SORT KEY:":? :FOR 1=1 TO NE 

PD 5020 ? I;" "; : GOSUB 9820+1:? : NE X T I:? "PRE 

SS RETURN TO CANCEL"; 

NJ 5030 TRAP 4000: INPUT SF: TRAP 40000: IF SF< 1 
OR SF >NE THEN ? "ECSIIIME" : GOTO 5030 
FO 5040 T = 2: ? "ASCENDING OR DESCENDING? (A OR 
D)";: INPUT I*: IF I*="D" THEN T=1 
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HI 5050 SL = DL (SF) : ? "LOADING ";FIL*:? "SORT ON 
";SL; " CHAR OF "; :GOSUB 9820+SF:? 

PC 5 060 SS= 1 : IF SF>1 THEN FOR 1 = 2 TO SF:SS=SS+ 
DL(I- 1 ) :NEXT I 

DD 5070 SE=SS+SL-1 : R = 500 0: EOF = 0:N=1:L = RL-1 
HD 510 0 TRAP 9500: OPEN #2,4,0,FIL$ 

DE5110 TRAP 51 50: INPUT #2,DS*:TRAP 40000 
GJ 5120 EOF = EOF+l : X $ (N, N + L) = DS$ : N=N+RL: GOTO 51 
10 

DG 5150 CLOSE #2:? "CDOWNIREC LOADED= ";EOF;", 
RAM (BYTES)= ";N-ls? "BEGIN SORT" 

66 5 1 60 1 = 1: N = N-RL 


IG 5200 

K = 0:DS$ = X$(I, I+L) :J =I + RL 




LC 5210 

ON T GOTO 5220,5240 




BO 5220 

IF X* ( J + SS-1,J+SE-1)<DSi (SS, 
S*=X*< J ,J+L):K=J 

SE) 

THEN 

D 

MP 5230 

GOTO 5250 




CA 5240 

IF X$(J+SS-1,J+SE-1)<DS$(SS, 
S* = Xt ( J,J + L) :K = J 

SE) 

THEN 

D 


DH 5250 J = J + RL: IF J<=N THEN 5210 

PL 5280 IF K< >0 THEN X $ ( K , K + L ) = X * ( I , I +L ) : X $ ( I , 
I+L)=DS* 

PK 5290 I = I +RL : I F I<N THEN 5200 
CM 5300 ? "£=} SORT COMPLETED" 

FI 5320 TRAP 9500:XIO 36,#2,0,0,FIL*:OPEN #2,8 
,0,FILt:TRAP 40000:EOF=0 
II 5330 FOR 1 = 1 TO N STEP RL:? #2; X $ ( I , I+L) :EO 
F=EOF+1:NE X T I 

LH 5340 CLOSE #2:XI0 35,#2,0,0,FIL*:? "RECOUNT 
= ";EOF 

JP 5350 ? "SORT THIS FILE AGAIN? (Y OR N)";:IN 
PUT I $: IF I♦="Y" THEN 5010 
ML 5360 GOTO 4000 

HO 9500 STATUS #2,K:? " tB3- rgim»3 im *M *1 i* a " T "? = 
I;I:M:.‘ ";K:CLOSE #2:? "PRESS ENTER"; :INP 
UT I $:GOTO R 
MF 9801 HD1$= IN*: RETURN 

MH 9802 HD2$=IN*:RETURN 
MJ 9803 HD3$ = I N$ : RETURN 
ML 9804 HD4$ = INt: RETURN 
MN 9805 HD5$ = I N$ : RETURN 
MP 9806 HD6$ = I N$ : RETURN 


EJ 9821 

7 

HD 1 * ; 

RETURN 

EL 9822 

7 

HD2$ ; 

RETURN 

EN 9823 

7 

HD3* ; 

RETURN 

EP 9824 

7 

HD4* ; 

RETURN 

FB 9825 

7 

HD5*; 

RETURN 

FD 9826 

7 

HD6$; 

RETURN 
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Mailing Label Utility 

Vernon M. Daly 


The "Mailing Label Utility'' is an excellent example of how the 
"Data Management System" can be used for other applications. 
Requires the use of the Data Management System (previous arti¬ 
cle) and a disk drive. 

This mailing label utility requires the use Ron Marcuse's "Data 
Management System" (DMSDB) to create the database nec¬ 
essary for printing labels. I have used his program (unchanged 
since I first typed it in) to keep track of several things around 
the house. Even though it's of limited size, it fits lots of 
applications. It's easy to use and has good data format, both 
on the screen and the printer. 

Doesn’t Do It All 

I soon realized that there was one thing I would like to do 
with DMSDB that it didn't do: print mailing labels. DMSDB's 
capabilities were perfect. I could enter new names, make dele¬ 
tions or corrections, and do searches and sorts. But the printer 
format, good for making a list, was wrong for labels. I decided 
to write a program that would use the data files created by 
Ron Marcuse's program, but output the data in the right for¬ 
mat for the job I wanted to do. 

A Few Extras 

While I was at it, I decided to add a few extras that would 
make label printing easier. First, I wanted to be able to control 
the number of fields that would be printed. This would allow 
me to have other data in the file than what I might want to 
print on the label. It would also be nice to be able to restart 
the label printing process anywhere in the data file. Finally, 
since my printer has friction feed, I wanted to be able to do 
single forms (to print right on the envelopes). This means that 
the program would need to wait for me while I insert each en¬ 
velope. All these features are in fact incorporated in this 
"Mailing Label Utility." 

To make the program easy to use, I kept the format of op¬ 
eration very similar to the Data Management System program. 
Prompts and error messages are handled in much the same 
way as the original program, as are the format for getting into 
the proper database and the use of selective searches. This 
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makes it easy for someone familiar with the original program 
to use this utility. Let me note here that I don't claim original¬ 
ity for most of the file handling routines in this program. 
They're Ron Marcuse's from the original article. 


Using the Program 

All data entry and editing are done through the original 
DMSDB program. A typical example of a file setup would be 
to use field 1 for name, field 2 for address, field 3 for city and 
state, and field 4 for zip code. 

With the data entered into the database, you can run the 
mail utility. Load the printer with the mailing labels. Any 
printer should work since no special control codes are used. 
Select the database the same way as in the DMSDB program. 
Next, select the printer option. The data-to-screen option is in¬ 
cluded as an operator convenience. It displays all of the data 
to the screen and has no data control options. 

You may now select among the various printout options. 
You must tell the computer if you want all records or only se¬ 
lected ones. This is done in exactly the same fashion as the 
DMSDB program. If you choose selective printing, you must 
select the key field and give the selection criteria. 

Next, input the number of fields to print, starting entry 
number, and form length (number of lines that the label is 
long). If you want to print single forms as single-feed labels or 
printing on the envelopes, enter 0 here. As soon as you enter 
the form length, printing will begin. Data will be shown on 
the screen as it is printed. On continuous forms, printing will 
continue until all data has been printed. On single forms, you 
will be prompted to press RETURN to allow printing to con¬ 
tinue after each record is printed. 


Mailing Label Utility 

This program must be used with DMSDB program in the previous article, "Data 
Management System." 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 


KB 40 
KG 50 

GL 6 0 

GN 65 


POKE 82,0:POKE 83,39:G0T0 90 

DIM ftPP$(26),FILt(14),FILD$(9),HD1*( 12), 

HD2$(12),HD3$(12),HD4$(12),HD5$(12) 

DIM H D 6 $ ( 12) , 1$ < 1 > ,J$(1) ,RECt(132) , IN$ (3 
1),DM$(8),DL(6) 

DIM S*(15),X*(5),P*<24),N*<16): N$=" FT5TgiT? 


: DM$="D:DMS. DB" 


42 



Chapter 1 


DE 70 P$="PRESS RETURN TD CONTINUE" : S $ = " {DOWN} 
SELECT OPTION: X $ = " SHUTS" 

H6 75 FOR 1 = 1 TO 6 : DL ( I ) =0 : NE X T I 

BJ 80 REC$<1)=" " : REC* ( 132) =" " : R E C $ ( 2) = R E C $ : R 
ETURN 

DC 9 0 DIM I $ ( 1 ) 

BF 100 GRAPHICS 0:7 "{DOWN} DMS MAILING LABEL 
UTILITY" 

BE 110 ? " {DOWN} {4 SPACES} PR I MARY OPTION MENU" 

JJ 120 ? "{DOWN} D - SELECT DATA BASE" 

LO 130 7 "{DOWN} S - PRINT DATA TO SCREEN" 

CA 140 7 "{DOWN} P - PRINT DATA TO PRINTER" 

CC 150 7 "{DOWN} E - END (EXIT PROGRAM)" 

IB 160 7 :? "{DOWN} SELECT OPT I ON " ; : I NPUT I$:I 

F I$="D" THEN 750 
FJ 170 IF I$="S" THEN 2000 
BB 180 IF I$="E" THEN END 
FH 190 IF I$="P" THEN 1000 
BC 200 GOTO 160 

LA 490 PRINT " { D 0 W N } SEL EC T DATA SET 1ST":G0SUB 
6300:GOTO 100 

DE 750 7 " {CLEAR} {DOWN} {3 SPACES} DAT A BASE SEL 
ECTION":CLR :GOSUB 50:R=760 
01760 7 " {DOWN} ENTER DATA SET NAME (I FOR IND 

EX)":7 :7 P$;" (END)" 

NK 770 INPUT F I LD$ : I F LEN(FILD*>=0 THEN 100 
HJ 780 IF LEN ( F I L D $ ) =1 AND FILD$="I" THEN GOSU 
B 6500:GOTO 760 

KP 800 T= 1 : GOSUB 9200: IF EOF = 0 THEN 100 
6M 820 7 "{DOWN1DATA SET LOADED": GOSUB 6300 
DC 850 DIM DS$ (RL) ,SV$(30) :FOR 1 = 1 TO RL:DS$(I 
, I )=" " :NEXT I :GOTO 100 

BM 1000 IF N E = 0 THEN 490 

SO 1020 PRINT " {CLEAR} {DOWN} {3 SPACES} " ; APP$ 

JI 1030 PRINT " {DO WN}A - PRINT ALL RECORDS" 

BL 10 4 0 PRINT " {DOWN}S - PRINT SELECTED RECORD 

S " 

A6 1050 PRINT " {DOWN}E - END (RETURN TO MENU)" 
PL 1060 PRINT S$; : INPUT JJ: IF J$="E" THEN 100 
LE 1070 IF Jt="A" THEN T = 2:GOTO 1160 
El 1080 IF J*="S" THEN T=1 : PRINT " {CLEAR} ": GOT 
0 1100 

AN 1090 PRINT X $ : GOTO 1060 

HP 1 100 7 " SELECT KEY: " : FOR 1 = 1 TO NE : PRINT " 

>i . T ■ " " • 

* 1 J * 

EM 1110 GOSUB 9820+1 : NEXT I 

LO 1120 PRINT "ENTER KEY FIELD #" ; 

DH 1130 INPUT SF: IF SF< 1 OR SF >NE THEN PRINT X 

$:GOTO 1120 
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KB 1140 

ND 1150 

PD 1155 

HA 1156 
CD 1160 

DA 117 0 

JP 1180 

FH 119 0 


ND 1200 
HC 1220 
BN 2000 
CB 2020 
Cl 2050 
BN 2200 

HE 2210 
JC 2220 
PL 2225 

AH 2230 
KF 2328 
NK 2340 
AN 2345 
PH 2352 
FI 2355 
BC 2356 
CB 2358 
HJ 2360 
HH 2420 
EF 2430 
BF 2440 

EE 3000 
AS 3 100 
GH 3 120 
KF 3200 
AI 3300 
FH 3305 

EJ 33 10 
NO 3320 
LA 3330 


PRINT "ENTER VALUE OF ";:GQSUB 9820+SF 
:PRINT " (1 — ";DL(SF) ; ") " 

INPUT SV$:SL=LEN(SV$) : IF SL<1 OR SL >DL 
(SF) THEN PRINT X*;" LEN":GOTO 1140 
SS=1: IF SF >1 THEN FOR 1=2 TO SF:SS = SS + 
DL ( I- 1 ) :NEXT I 
SE=SS+SL-1 

PRINT :PRINT "ENTER NUMBER OF FIELDS T 
0 PRINT" 

INPUT NF: IF NF<1 OR NF >NE THEN PRINT X 
$:GOTO 1160 

PRINT :PRINT "START PRINTOUT WITH ENTR 
Y NUMBER INPUT START 

PRINT :PRINT “WHAT IS THE FORM LENGTH 
IN LINES":PRINT "ENTER '0' FOR INDIVID 
UAL FORMS":INPUT FORMLEN 
R=1000:TRAP 9600:OPEN #7,8,0,"P:" 

GOTO 2200 
IF NE=0 THEN 490 

? "{CLEAR!{DOWN!{3 SPACES!";APP$ 

T=2:NF=NE 

1=0:EOF=0:R=2000:TRAP 9500:OPEN #2,4,0 
, FIL$ 

TRAP 2420 
INPUT #2,DS* 

L=1:TRAP 40000:EOF=EOF+l:IF T=2 THEN 2 
328 

IF SV$<>DS$ (SS,SE) THEN 2210 

FOR J=1 TO NF 

PRINT DS*(L,L + DL ( J)-1) 

IF I$="P" THEN GOSUB 3000 
L = L + DL ( J) 

NEXT J 

IF I*="P" THEN GOSUB 3300 
PRINT :PR I NT 
GOTO 2210 

IF EOF = 0 THEN PRINT N$ 

IF EOF >0 THEN PRINT "REC COUNT- ";EOF 
CLOSE #2:CLOSE #7:PRINT P$:INPUT I$:GO 
TO 100 

REM PRINT SUBROUTINE 
IF EOF < ST ART THEN RETURN 
PRINT #7;DS* (L,L + DL(J) -1) 

RETURN 

IF EOF< ST ART THEN RETURN 

IF FDRMLEN=0 THEN PRINT P$:INPUT J$:RE 
TURN 

IF NF=FORMLEN THEN RETURN 
FOR J=1 TO FORMLEN-NF 
PRINT #7 
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FD 3340 
KL 3350 
HH 6300 
BK 63 10 

KF 6320 

HJ 6500 

HD 9000 
HA 9 010 
EH 9020 
OP 9030 
BC 9040 

PE 9050 
KP 9200 
HN 92 10 
ftB 9220 

DE 9230 
KP 9250 

Ifl 92B0 
FC 9290 
JH 9300 
JL 9310 
KO 9320 
PH 9500 


OB 9600 

HF 9B0 1 
HH 9B02 
HJ 9B03 
HL 9B04 
HN 9B05 
HP 9B06 
FH 9B2 1 
FO 9B22 
BA 9823 
BC 9824 
BE 9825 
BG 9826 


NEXT J 
RETURN 

FOR 1=1 TO 150:NEXT I:RETURN 
FOR L= 1 TO LEN (FILD$> : IF FILD$ (L,L)<>" 
" THEN NEXT L 

L=L—1:F I L $(1,2)="D:":F I L $(3,2+L)= F I L D $ 
(1,L):F I L $(3+L)=".DB":RETURN 
? "{CLEAR}{DOWN> DATA SET INDEX":? :T 

=0:GOSUB 9200:RETURN 
FILD$=REC$(1,8):APP$=REC$(9,33) 

RL=0:NE=0:FOR 1=1 TO 6 
DL(I)=VALCREC$(32+I*2,33+1*2)) 

IF DL(I)=0 THEN 9050 

NE=NE+1:RL=RL+DL(I):IN*=RECS(34+I*12,4 

5+1*12):GOSUB 9800+1 

NEXT I:GOSUB 6310:RETURN 

TRAP 9500 : OPEN #2,4,0, Dli$: EOF = 0 

TRAP 9300:INPUT #2,REC*:TRAP 40000 

IF T = 0 THEN ? " ";REC$(1,8) ; " ";REC$(9 

,33):GOTO 9210 

IF FILD$< >REC$(1,LEN(FILD$) ) THEN 9210 
EOF=EOF+1:GOSUB 9000:IF T>1 THEN GOSUB 
8750 

IF T >1 THEN ? :? P$ 

IF T >1 THEN INPUT 1$ 

CLOSE #2 

IF T >0 AND EOF = 0 THEN ? N$:BOSUB 6300 
RETURN 

STATUS #2 , K : ? " C E> I'Jr .CRl ■■ 

, X $ ; K : ? P$ ; :CLOSE #2:INPUT J$:POP :GOT 
0 R 

STATUS # 7 , K : ? " C E> US J 41 STraT f ==?> ",Xi 

;K:? P$ ; :CLOSE #7:INPUT J*:POP :GOTO R 

HD1*=IN*:RETURN 

HD2$=IN$:RETURN 

HD3*=IN$:RETURN 

HD4$=I N$ :RETURN 

HD5$=IN$:RETURN 

HD6*=IN$:RETURN 

PRINT HD 1 $:RETURN 

PRINT HD2$:RETURN 

PRINT HD3$:RETURN 

PRINT HD4$:RETURN 

PRINT HD5$:RETURN 

PRINT HD6$:RETURN 


45 




Chapter 2 


Programming 
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User-Defined 
Function Keys 

John Hebrink 


"Userkeys" allows you to define any key on the Atari keyboard to 
represent any character string or BASIC function of up to 255 
characters, and have it displayed or executed with the push of a 
button. It takes up IK of memory and lets you define up to 64 
keys for a total of 512 characters. For Atari 400 and 800 only (does 
not work on XL or XE models). 

Although the keyboard doesn't have 64 individual keys, some 
can represent multiple character strings. For example A, a, 
inverse-video A, inverse-video a, CTRL-A, and inverse CTRL- 
A are all legitimate, definable characters. Uppercase letters are 
naturally the easiest to use since they involve only a single 
keystroke. 

Defining a Key 

To define a key, run the program and press the SELECT but¬ 
ton (before you run this program, be sure to save it). A ques¬ 
tion mark will appear, prompting you to enter the character to 
be defined. Enter the string and RETURN. To make a BASIC 
functional string, press ESC at the end of the character string 
before hitting RETURN. To exit the program, hit RETURN 
when the question mark appears. From that point on, anytime 
you want to define a key, just press the SELECT button. To 
have a string displayed or executed, press the definition 
character and then press the START button. 

For example, if you want to have a key reset the left and 
right margins, clear the screen, and list your BASIC program, 
try this: 

?L = POKE 82,3:POKE 83,37:PRINT CHR$(125):LIST{ESC} 

To execute this function, press L and then START. 

One of the most useful functions I have run across is 
autonumbered DATA statements: 

?D = PRINT A;" DATA ":A = A + 10{ESC} 

?F= {UP} {SHIFT-DELETE} (3 UP}{SHIFT-DELETE}{10 RIGHT} 

This is a two-stage function, however, and is executed by 
pressing D, START, F, and START. Variable A would have to 
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be defined in immediate mode to equal the starting line num¬ 
ber before using this function. The second string, F, is used to 
erase the first one, D, and the unwanted READY, and to re¬ 
position the cursor behind DATA. When entering this string 
and strings like it, don't press ESC before entering the charac¬ 
ters. The computer will think you want to RETURN. Just enter 
the functions as is. This may create a somewhat confusing dis¬ 
play, but will be executed properly when printed by the pro¬ 
gram. Anything that will work in immediate mode will also 
work this way. 

Line 60 uses the RETURN key mode to erase the BASIC 
program. This means that you must be sure to save the pro¬ 
gram before running it, or you will lose it. The program then 
resets the BASIC program pointers (128-145) up IK by pass¬ 
ing MEMLO down to LOMEM. 

If you want to use the console buttons in a program, 

POKE 548,35. (Why not define a key to do it?) SYSTEM RE¬ 
SET will resume program execution. 

Userkeys 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. The program will not work on XL and XE models. 

10 10 FOR 1 = 1536 TO 1777:READ A:POKE I,A:NEXT 
I 

CB 20 FOR 1=256 TO 325:READ AiPOKE I,A:NEXT I 
KB 30 A = PEEK ( 129) : IF PEEK(128><>0 THEN A = A + 1 
NN 40 POKE 743,0: POKE 744,A + 4:P0KE 204, A 
OL 50 POKE 2,0: POKE 3,AiPOKE 9,2 

LL 60 GRAPHICS 0:POSITION 2,4:? "NEW":? :? :? 

"D=USR(256)":POSITION 2,0:POKE 842,13 
HJ 70 DATA 173,232,2,24,105,4,141,232,2,162,0, 
160,21,169,7,32,92,228,76,77,160,173,31, 
208 

ED 80 DATA 201,5,240,101,173,31,208,201,6,240, 
3,76,98,228,169,43,141,36,2,173,31,208,2 
0 1 

NN 90 DATA 6, 208,3,76,98,228,166,205,202,202,2 
02,202,189,0,0,205,251,2,240,6,224,0,208 
CO 100 DATA 240,240,36,189,1,0,141,97,0,189,2, 
0,141,98,0,189,3,0,141,124,0,120,162,0, 
138 

08110 DATA 72,189,0,0,201,27,208,14,169,12,14 
1,252,2, 104, 169,21,141,36,2,76,98,2 28,3 
2 


50 




Chapter 2 


ID 120 DATA 164,246,104,170,232,224,0,208,223, 
240,236, 169,28, 141,36,2, 166,205, 165,207 
, 157 

ED 130 DATA 1,0,165,204,157,2,0,169,1,133,206, 
169,63,32,164,246,32,226,246,201,155,20 
8,3 

ON 140 DATA 76,9,0,166,205,157,0,0,32, 164,246, 
169,61,32,164,246,164,207,169,126,145,2 
03 

LN 150 DATA 230,207,165,207,208,2,230,204,165, 
204,197,129,208,8,169,0,141,27,0,76,9,0 

DC 160 DATA 32,226,246,201,155,240, 1 1,164,207, 
145,203,32,164,246,230,206,16,216,32,16 
4 

LH 170 DATA 246,166,205, 165,206,157,3,0,232,23 
2,232,232,134,205,16,148,104,169,12,141 

OF 180 DATA 74,3,165,204,160,6,190,55,1,157,0, 
6, 136, 16,247,24, 105, 1, 160,7, 190,62, 1, 15 
7 

HO 190 DATA 0,6,136,16,247, 160,0,185,0,6,145,2 
03,169,0,153,0,6,200,208,243,230,204,23 
0 

EE 200 DATA 204,76,27,241,10,78,84,90, 164,202, 
205,61,75,81,87, 140, 145, 169,233 
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Variable Changer 
and Block Deleter 

Robert Dolan 


With these two short routines, instantly change the name of a 
variable each time it appears in your program or delete a series of 
lines that are no longer needed. 

Here are two aids for the BASIC programmer. The first is a 
line block deleter that allows you to delete a series of lines 
quickly and easily. The second is a variable name change 
utility. 

Block Line Deleter 

This simple utility will delete a series of lines. Use the routine 
with caution, especially if you're using Revision B of Atari 
BASIC. If you're not sure which version of BASIC you have, 
enter this line in immediate mode: 

PRINT PEEK (43234) 

If your Atari responds with 234, then you have Revision C 
and this routine should work just fine. If it responds with 96, 
watch out. You have Revision B and it is full of bugs—es¬ 
pecially the famous lockup bug. Be careful in deleting lines. To 
be safe, always save a copy of your BASIC program on disk or 
tape before attempting to use Program 1, especially if you 
don't have Revision C of BASIC. 

To use the program, simply type it in using "The Auto¬ 
matic Proofreader" and LIST it to tape (LIST "C:") or disk 
(LIST "D:DELETER.LST"). Now, whenever you're working on 
a BASIC program and want to delete lots of lines, just ENTER 
the program from disk (ENTER "D:DELETER") or tape (EN¬ 
TER "C:", being sure to position the tape correctly). The pro¬ 
gram will append itself to the BASIC program in memory. 
(Note that since the "Deleter" starts at line 32000, it will work 
only with programs that do not use these same line numbers.) 
To delete lines from your program, type GOTO 32000 and an¬ 
swer the prompts. 

When all the deleting is done, you'll want to save your 
program without lines 32000 and above. Use the LIST 
command: 

LIST “D:filename",1,31999 (Disk) 
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or 

LIST "C:",l,31999 (Tape) 

Variable Changer 

This utility will peruse your variable name table and list all 
variables it finds in the order in which they were entered into 
your program. It also assigns a number to each variable, which 
is used to identify the variable when you want to change it. 
This makes the program smaller and less complicated. 

To use the utility, simply follow the same procedure de¬ 
scribed above. First, type in and LIST the program to disk or 
tape. Load in your BASIC program and append this utility to 
it. To use the “Changer” type GOTO 32000, press RETURN, 
and follow the prompts. Again, once the changes have been 
made, LIST the program to disk or tape, being sure to indicate 
the line number range so that the Changer is not saved with 
your BASIC program. 

When the utility is executed, you'll be asked if you want 
to send the list to a printer. If so, enter Y and RETURN. This 
is handy since you don't have to remember or write down the 
number of any variable names you wish to change. If you 
don't have a printer or if your paper supply is low, just hit 
RETURN, and the list will be displayed on the screen in 
blocks of 20 names. 

After the listing is completed, you'll be prompted for the 
number of the variable name to change. Be sure to enter a 
number here or the program will stop. You're limited in your 
replacement name to the same number of characters as the 
original name. Also be careful of string and array names. You 
must include the dollar sign for strings and the parentheses for 
arrays. 

Once you enter the new name, all references to it 
throughout your program will be changed instantly. At this 
point the progam will reprompt you for another name change. 
If you are finished, hit RETURN and the program will end. 

Program 1. Block Line Deleter 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

Kl 32000 REM ** LINE BLOCK DELETE PROG 
NL 32002 DIM L I NE ( 200 ) : L = 0 : PR = 3 1 999 : SETCOLOR 2 
,10,2:SETCOLOR 4,10,2:SETCOLOR 1,10,1 
4:TRAP 32004 
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GL 32003 
NE 32004 

Jl 32005 

GE 32006 


PL 32007 

CO 32008 
KK 32009 
AJ 320 1 0 
AH 3201 1 
EO 32012 
LP 32013 
01 32014 
PK 32015 
CC 32016 


EG 32017 

LH 32018 
OH 32019 
DI 32020 
AL 32021 
DB 32022 
HN 32023 
OP 32024 
NJ 32025 
FJ 32026 
JD 32027 
JC 32028 


LADR=PEEK(136)+256#PEEK(137) 

? "{CLEAR}":? "*#*** LINE BLOCK DELET 

E UTILITY ***»*" 

? :? :? "ENTER START LINE INPUT LS 

T 

? :? "ENTER END LINEE3 SPACES>";:INPU 

T LNEND:TRAP 40000:IF LST>PR OR LNEND 
>PR THEN ? :? "INVALID LINE NUMBERS": 

END 

IF LST >LNEND THEN ? :? "END LINE MUST 
BE GREATER THAN START":END 

? : ? "WORK I NG." 

THS = PEEK(LADR)+256#PEEK(LADR+1 ) 

IF THS > = LST THEN 32012 
LADR=LADR+PEEK(LADR+2):GOTO 32009 
IF THS >LNEND THEN 32014 
L=L+1:LINE(L)=THS:GOTO 32011 
? "LINES FOUND IN THIS BLOCK:" 

FOR 1 = 1 TO L:? I ,L I NE(I) :NEXT I 
? :? CHR$ (253) : ? " gf:!:!? Mlfg* IF YOUR PRO 

GRAM IS LONG,":? "THEN CARE SHOULD BE 
USED IN THIS PROCEDURE"; 

? ".WAIT AWHILE AFTER EACH ":? "BLOCK 
TO AVOID FATAL LOCKUPS (#7.$S>?#)" 

? :? :? "HIT START TO DELETE LINES" 

IF PEEK(53279)<>6 THEN 32019 
? "{CLEAR}":POSITION 2,4 

FOR D =1 TO 20:Q = Q+1 

? LINE(Q):IF Q=L THEN POP :GOTO 32024 
NEXT D 

? "CONT":POSITION 2,0 
POKE 842, 13:STOP 
POKE 842,12 
IF Q< L THEN 32018 
? "ALL DONE":END 


Program 2. Variable Changer 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 


NJ 32000 
EO 32001 
HE 32003 

PD 32004 


LF 32005 


REM 

REM * VARIABLE CHANGE UTILITY * 
XYZ=PEEK(130)+256*PEEK(131):QQQ=0:DIM 
QQQQ$ ( 10) ,VPTR(129) 

? "{CLEAR}":POKE 710,146:POKE 712,146 
:? "SEND VARIABLES TO PRINTER ";:INPU 
T QQQQ$:GOSUB 32023 

? #2;"VAR NO.=";QQQ;"{3 SPACES}";:? # 
2;"VAR NAME="; 
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ND 32006 
00 32007 

LJ 3200B 

DC 32009 

DC 32010 

Cfl 32011 

BC 32012 


El 32013 

JD 32014 
HO 32015 

DE 32016 

LH 32017 

Cl 32018 

BL 32019 

HL 32020 

JO 32021 
FC 32022 
PE 32023 

OE 32024 
JN 32025 


VPTR(QQQ)=XYZ 

IF PEEK(XYZ)<127 THEN ? #2 ; CHR*(PEEK( 
XYZ ) ) ; 

IF PEEK(XYZ)>127 THEN ? #2;CHR$(PEEK( 
XYZ )-128); 

IF PEEK(XYZ)<128 THEN XYZ=XYZ+1:GOTO 
32007 

XYZ=XYZ+1!QQQ=QQQ+1:Q=Q+1:IF Q=20 AND 
QPQ=0 THEN ? #2:GOSUB 32020 
? #2: IF XYZ<(PEEK(132)+256*PEEK(133)) 
THEN 32005 

? #2:? #2:? #2;"END OF VARIABLE NAME 
TABLE":? #2;"NUMBER OF VARIABLES FOUN 
D=";QQQ:CLOSE #2 

TRAP 32025:? :? "ENTER VARIABLE NO. T 

0 CHANGE ";:INPUT VN:TRAP 40000 
Q=VPTR(VN+1)—VPTR(VN) 

? "VAR. NO.";VN;" IS ONLY ";Q;" CHARS 
. LONG" 

? :? "ENTER NEW VARIABLE NAME ";:INPU 

T QQQQ$ 

IF Q=1 THEN POKE VPTR(VN) ,ASC (QQQQ$(1 
,1))+128:GOTO 32013 

FOR QQQ=0 TO Q-2:P0KE VPTR(VN)+QQQ,AS 
C(QQQQt(QQQ+1)):NEXT QQQ 

POKE VPTR(VN)+QQQ,ASC(QQQQ$(QQQ+1))+l 
28:GOTO 32013 

Q=0:POKE 764,255:? :? "HIT ANY KEY TO 

CONTINUE" 

IF PEEK(764)=255 THEN 32021 
? :RETURN 

CLOSE #2: IF QQQQ*="Y" THEN OPEN #2,8, 

0,"P:":QPQ=1:RETURN 

OPEN #2,8,0,"E:":QPQ=0:RETURN 

? :? "Okay":END 
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Varlist 

Brian Totty 


A bug in a program got you completely baffled? Perhaps you're 
unknowingly using the same variable name twice. "Varlist" will 
help you keep track of your variables and also introduce you to 
how the Atari stores variables. 

Atari BASIC is a useful and flexible language, especially in 
its usage of numeric variables. Atari BASIC allows for 128 
different variable names. This BASIC does not, however, limit 
you to names of only a few characters. Where some ma¬ 
chines may allow only N, G2, or SP, Atari's BASIC allows 
NUMBEROFBOMBS, GRADES2, or SHIPS. It's easy to get 
carried away with this convenience and start tossing about 
variables haphazardly. This makes the program flow harder to 
follow and the program harder to revise as the functions of 
some variables are forgotten. 

There are times when you might want to know if you've 
used a certain variable and have to search the entire program 
line by line to try to find it. 

Variable Storage 

Atari BASIC holds all variable names that have been used 
during your programming in the Variable Name Table (VNT). 
The location of the VNT will depend on the configuration. 

The Atari uses two memory locations (called pointers) to 
point to the VNT. It uses two locations because each location 
(called a byte) can hold a number from 0 to 255. The VNT is 
going to start at a location much greater than 255, so the sec¬ 
ond byte holds the number of multiples of 256. For example, 
if there is a 3 in the first byte (called the low byte) and a 0 in 
the next byte (called the high byte), you would have 3 plus 0 
multiples of 256, or 3+ (0*256), or 3. If there is a 67 in the 
low byte and a 6 in the high byte, you would have 67 plus 6 
multiples of 256, or 67 + (6*256), or 1603. 

The two-byte pointer to the VNT starts at location 130 
decimal (82 hexadecimal). In other words, 130 is the low byte 
and 131 is the high byte. Knowing this, you can find where 
the Variable Name Table starts with this BASIC line: 

START = PEEK(130) + 256*PEEK(131):PRINT "TABLE STARTS 
AT";START 
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Each variable is stored character by character in the bytes 
after the start of the table. Atari BASIC does this by placing 
the ASCII value of each character in subsequent bytes. At the 
end of the variable name, the last character is stored in inverse 
video (with 128 added to the ASCII value). For instance, ABD 
would be stored as 65, 66, 196 (the last number being the 
ASCII value of D with 128 added); VG$ would be stored as 
86, 71, 164. And a G array would be the ASCII values of G( 
with the parenthesis in inverse video. Such variables as arrays 
and matrices are stored only up to the first parenthesis. The 
end of the table is signified by a zero. 

Variable Listers 

Program 1 is a short BASIC program that lists variables. 

Line 30 creates some variables, so they can be found in¬ 
side the VNT. 

Line 40 finds the start of the VNT by the two-byte pointer 
at addresses 130 and 131 decimal. 

Line 50 PEEKs the character in the table. 

Line 60 checks if that byte is a zero (the end of the table). 

Line 70 PRINTs the character value of that byte. 

Line 80 checks for the end of the variable; if so, then 
jump to the start of next PRINT line. 

Line 90 adds 1 to the place to get next byte and goes back 
to line 50. 

There are two inherent problems with this BASIC lister, 
however. First, to use this program with another program, you 
will have to merge the two with the ENTER command, being 
careful of overlapping lines—an inconvenience at the least. 
Second, even without line 30, the variable table will get clut¬ 
tered with the variables that the lister uses. 

Program 2 is a short BASIC loader that creates a machine 
language program and stores it in page 6, starting at address 
1536. Type in Program 2 and save it before you run it. 

When Program 2 is executed, there will be a short pause 
and then the READY prompt will reappear. Now type PRINT 
USR(1536) and press RETURN. Voila. There's your VNT, but 
what is that number at the end? That is the number of vari¬ 
ables currently in your table. 

Now erase the BASIC loader program with the NEW 
command. Again, type PRINT USR(1536) and watch what 
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happens. NEW erases your BASIC program, clears the VNT, 
but doesn't harm the machine language subroutine. 

Program 1. Variable Lister, BASIC 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PI 30 DIM fiRR(l) ,F(1) ,B$(1) :C1 = 10 
KA 40 VNT=PEEK(130)+256*PEEK(131 ) 

EE 50 BYTE = PEEK (VNT) 

FB 60 IF BYTE=0 THEN 100 
LF 7 0 PRINT CHR*(BYTE); 

LP B0 IF BYTE > 1 27 THEN PRINT 
MK 90 VNT=VNT+1:GOTO 50 
61 100 END 


Program 2. Variable Lister, Machine Language 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 


IH 10 

OA 20 
01 30 
0D 40 
00 50 
OP 60 
P0 70 
06 S0 
OH 90 
B6 100 
B6 1 10 
AJ 120 
BN 130 
E0 140 
6N 150 


FOR 1=1536 TO 1608:READ A:POKE 
I 

DATA 104,169,000,133,212,133 
DATA 213,165,130,133,204,165 
DATA 131,133,205,160,000,177 
DATA 204,240,034,133,206,032 
DATA 056,006,165,206,016,007 
DATA 169,155,032,056,006,230 
DATA 212,230,204,165,204,240 
DATA 003,076,015,006,230,205 
DATA 165,205,240,003,076,015 
DATA 006,096,162,000,142,072 
DATA 003,142,073,003,160,011 
DATA 140,066,003,032,086,228 
DATA 096 
END 


I,A:NEXT 


58 




Scroll Protect 

Jim Bender 


Sometimes it would be desirable to print text to the top of a 
GRAPHICS 0 screen and allow the rest of the screen to scroll. All 
it takes is a short machine language routine. 

At first I thought the only way to protect part of the GRAPH¬ 
ICS 0 screen from scrolling off the top was to open a text win¬ 
dow at the bottom of the screen. 

Since I really wanted to protect four or five lines on the 
top of the screen from scrolling, I decided to try to write a ma¬ 
chine language routine that would protect the top four lines of 
the screen and that would interface with BASIC. Since the 
routine would have to be running all the time to catch any 
text that might stray into the protected area, the logical solu¬ 
tion turned out to be the Vertical Blank Interrupt (VBI). 

The routine would run during the time that the electron 
beam in the TV is returning from the bottom to the top of the 
screen, during the vertical blank period. BASIC is normally 
interrupted during this time as the operating system goes off 
to update certain registers. A disassembly of the operating sys¬ 
tem VBI routine revealed that it does little more than in¬ 
crement the realtime clock (decimal locations 18, 19, and 20). 
Given this and the fact that the Atari can execute upward of 
30,000 cycles during the VBI, my short routine had found its 
interface. 

The result appears in this short demonstration program. 
The DATA lines contain the actual routine. You set the routine 
in motion by first POKEing location 203 (decimal) with the 
number of lines you want to protect. You can call the routine 
with X=USR(1536). To turn off the scroll protect routine, use 
X = USR(1653) to call the GETOUT routine. 

Scroll Protect 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

OJ 10 RESTORE : FOR 1=0 TO 127:READ A:POKE 1536 
+I,A:NEXT I:REM LOAD THE ML ROUTINE 
PP 20 PRINT CHR*<125):REM CLEAR THE SCREEN 
UK 30 POSITION 2,0: REM START ON TOP LINE 

1140 PRINT CHR$ ( 127) ; "THESE LINES WILL" 

CN 50 PRINT C H R $ ( 1 2 7 ) ; "NOT BE SCROLLED" 

KC 60 PRINT CHR* ( 127) ; "OFF THE TOP OF" 
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CO 70 PRINT CHRt ( 127) ; "THE SCREEN." 

HK 80 POKE 203,4 : REM PROTECT 4 LINES 
LE 90 A = USR ( 1536) : REM START VBI ROUTINE 
IH 95 REM OTHER LINES SCROLL NORMALLY 


DK 100 
ED 102 
HN 104 
BP 106 
KM 108 
IE 1 10 
JE 120 
LF 130 
PC 140 
DD 150 
FN 160 
DA 170 
LO 180 
OK 190 
BI 200 
FS 21 0 
IE 220 
LE 230 
JL 240 
CA 250 
LM 260 
JB 270 
CP 280 
CH 290 
KA 300 
86 310 
OG 320 


FOR 1=1 TO 80 
POKE 85,INT(I/4) 

PRINT "BUT THESE LINES WILL" 

NEXT I 

REM ML PROGRAM FOLLOWS-TYPE CAREFULLY!! 

DATA 104,173,48,2,133,205 

DATA 173,49,2,133,206,198 

DATA 206,169,0,133,204,105 

DATA 1,133,207,162,6,160 

DATA 31,169,7,32,92,228 

DATA 96,24,165,203,201,7 

DATA 48,4,169,6,133,203 

DATA 169,0,133,204,166,203 

DATA 165,204,105,40,202,208 

DATA 251,133,204,165,203,208 

DATA 4,169,0,133,204,165 

DATA 207,240,22,160,0,169 

DATA 0,145,205,200,196,204 

DATA 208,249,160,0,177,88 

DATA 145,205,200,196,204,208 

DATA 247,162,0,134,207,160 

DATA 0,177,205,145,88,200 

DATA 196,204,208,247,234,234 

DATA 234,234,234,234,234,234 

DATA 76,98,228,104,160,98 

DATA 162,228,169,7,32,92 

DATA 228,96 
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Data Dumper 

Clifford Engels 


Turn machine language routines in BASIC DATA statements into 
an object file that can be loaded from the Assembler/Editor for 
disassembly and modification. 

Ever wonder how those great little subroutines in BASIC pro¬ 
grams work? Have you ever wanted to easily load those ML 
routines with your Assembler/Editor? 

Here is a small utility that will convert the DATA state¬ 
ments in a BASIC program to machine language and store the 
data on tape or disk. Later, this data can be loaded by the 
Assembler/Editor cartridge using the LOAD#C: or LOAD#D: 
filename command. The code can then be disassembled. 

First, type and LIST the program to tape or disk. Then 
load in the program with the DATA statements. Since the util¬ 
ity program uses lines 0-11, be sure that no DATA statements 
are at those line numbers. If there are, temporarily adjust your 
BASIC program (remember, for the moment you're only in¬ 
terested in the DATA statements). Next, enter the utility. It 
should be the first 12 lines of the program in memory. 

When you run the program, the first prompt will ask for 
the starting DATA line number. Enter the line number of the 
DATA statement at which you wish to start disassembling. 

The utility will stop automatically after the last data element 
has been read. The next prompt asks for the starting address. 
This address is where the machine language data will load 
using the Assembler/Editor cartridge. This address does not 
have to be the same as the load address in the BASIC pro¬ 
gram. You are going to disassemble the program, not run it. In 
fact, I recommend using 4096 as the load address so that you 
can easily remember the address when you disassemble the 
data. Decimal 4096 is hexadecimal 1000. You must use hexa¬ 
decimal address when using the Assembler cartridge. Finally, 
you'll be asked for a filename. Enter C: to save to tape or 
D -.filename (substitute a legal filename for filename ) to save to 
disk. No quote marks are necessary. 
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DATA Dumper 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 

in this program. 

PC 0 DIM FI*(15):? " i CLEAR > ENTER LINE # OF FIR 
ST DATA LINE TO BE DISASSEMBLED INPUT 

R!RESTORE R:B = 0 :C=0:TRAP 7 

IJ 1 READ A : B = B+ 1 : GOTO 1 

EL 2 ? s? "ENTER STARTING LOAD ADDRESS ";:INPU 
T ADDR:ADRH=INT(ADDR/256) :ADRL = ADDR-( 256* 
ADRH):GOSUB 10 

PA 3 POKE 53775,35: POKE 5376B , 40 : POKE 53764,0: 
POKE 53766,0:POKE 53773,255:OPEN #3,8,0,F 
I $:RESTORE R 

El 4 PUT #3,255: PUT #3,255:PUT #3,ADRL:PUT #3, 
ADRH 

NN 5 ADDR = ADDR + B-1 : ADRH= I NT (ADDR/256) : ADRL = ADD 
R-(256*ADRH):PUT #3,ADRL:PUT #3,ADRH:C=1 

DC 6 READ A: PUT #3, A: GOTO 6 

CN 7 TRAP 7 : I F PEEK < 1 95 ) < >6 THEN ? :? " * * * ERR 
OR# =";PEEK(195):CLOSE #3:END 

NI S IF C = 0 THEN 2 

BE 9 CLOSE #3: END 

JA10 ? " IDOWNJ ENTER FILENAME.":? "CDOWNJBE SU 
RE TO INCLUDE EE PLUS THE f 9 SPACESJFILEN 
AME FOR DISK.":? "{DOWN>OR FOR TAPE." 

LP 1 1 INPUT Fit: RETURN 
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Graphics 






Atagraph 

Edward Chaney 


Create your own animated displays and save them for future dis¬ 
play. Requires one disk drive and a joystick. 


"Atagraph" is designed to help you create animation routines 
on your Atari. It allows you to create animation routines by 
drawing a series of pictures using a joystick. You can then se¬ 
lect the sequence in which these drawings are to be displayed. 
If you like, you can save the routine for use in your own 
programs. 

When Atagraph is run, a drawing frame will be displayed. 
Above this frame are the COLOR and SETCOLOR commands 
which are in effect. Below the frame is a brief menu of options: 


View 

Clear 

Scan 

End 

Exchange 

Directory 


Displays completed drawings below the frame 

Clears the drawing area 

Allows the user to scan completed drawings 

Ends the current drawing 

Changes the drawing in the frame area 

Lists the disk files 


Options available but not listed are the OPTION key, 
which changes the plotting speed, and the down, right, and 
left arrow keys. These keys allow drawings displayed in the 
frame to be positioned onscreen for reference. 


Changing Colors 

To use Atagraph, follow the directions below to enter and run 
the program. When the frame is displayed, press the joystick 
trigger button. The color will change. Press the OPTION key 
and again press the trigger. Now, the color changes at a 
slower speed. Press and hold the OPTION key and the trigger 
until the desired speed is reached. Then, push the joystick in 
any direction. The cursor will draw or erase, depending on the 
color chosen. Color 0 erases. The colors are the same as with 
BASIC color statements. 

The setcolor is also the same as BASIC's setcolor com¬ 
mands. SETCOLOR commands are issued by pressing R until 
the desired color register is displayed. Pressing H will change 
the hue, and pressing L will change the luminance. 

When you have selected the colors and setcolor, you are 
ready to do your drawings. Use the joystick to draw a picture. 


65 



Chapter 3 


When your picture is completed, press the E key. The com¬ 
puter will scan the drawing frame and encode your drawing 
(you may have to press the E key more than once). You'll be 
asked if you are ready to save this series. If you plan more 
than one drawing, answer by pressing N and you'll be re¬ 
turned to the drawing board. Press the V key and the drawing 
will be displayed below the frame. Press X and the drawing 
will be displayed inside the frame where it can be moved or 
modified by using the arrow keys. 

Putting It in Order 

When you've completed several drawings, press S. All 
drawings will be displayed, and you will be asked to enter the 
sequence. The drawings are designated A to Z. Enter the 
appropriate letters for the order in which you wish your 
drawings to be displayed. Separate each letter with a comma 
and press RETURN after the whole sequence has been en¬ 
tered. You'll be asked to enter the delay. This is the length of 
time each drawing will remain on the screen. A high number 
gives a longer delay. When you've entered the delay, you'll be 
asked to enter the graphics mode. Your drawings may be dis¬ 
played in either graphics mode 5 or 7. Enter your choice. The 
drawings will be displayed in the order you selected. This scan 
will continue, repeating itself, until you press a key. 

When you press a key, you'll be asked if you're ready to 
save the series. If your animation routine is completed, press Y 
and answer the filename question by entering the correct file¬ 
name. Enter a standard DOS filename beginning with D:. No 
quotes are necessary. 

When the save is completed, you may do another series 
by pressing the Y key when asked if you wish to do another 
series. 

Loading Pictures 

To load a series of pictures you previously saved with 
Atagraph, select D for directory. You'll presently see a direc¬ 
tory of the disk in drive 1. Then you'll be asked which file 
you wish to load. Be sure to use D: in front of the filename; 
quotes are not needed. 
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Typing In the Program 

When typing in Atagraph, enter and save Program 1; then 
run it. After a few seconds the screen will clear, and new lines 
50, 60, and 70 will appear on the screen. The program will 
have been erased from memory. Hold down the CONTROL 
key and press the up arrow key (the key immediately to the 
right of the P key) as many times as necessary so that the 
cursor is on top of the 5 of the number 50 (this will be at the 
very top left of the screen). Once the cursor is positioned cor¬ 
rectly, press the RETURN key three times. You have now en¬ 
tered the first three lines of the Atagraph program. Now type 
in Program 2 so that lines 50, 60, and 70 become part of the 
program. 

The string variables LINES, SIDES, and MINES (lines 50, 
60, and 70) contain characters which are difficult to enter cor¬ 
rectly. The method used here makes them much easier to enter. 

When all of Program 2 and the addition of lines 50, 60, 
and 70 have been entered correctly, save the entire program 
(you might want to save it a few times along the way just in 
case). Now, each time you want to use Atagraph, just load 
and run this final version. 

Program 1. Atagraph String Maker 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

KJ 10 DIM MINE* (96) , LINE* (24) , SIDE* (39) 

PN 20 FOR X = 0 TO 23 : READ A:LINE*(LEN(LINE*)+1) 

= CHR* (A) :NEXT X 

PO 30 FOR X = 0 TO 38 : READ A : S I DE* ( LEN ( S I DE* ) + 1 ) 
= CHR* (A) :NEXT X 

AK 40 FOR X = 0 TO 95 : READ A : M I NE* ( LEN ( M I NE* ) + 1 ) 
=CHR*(A):NEXT X 

AH 50 GRAPHICS 0:? "50 LINE*=";CHR*(34);LINE* 

EN 60 ? "60 SIDE*=“ ; CHR* (34) ; SIDE* 

PH 70 ? "70 MINE*=" ; CHR* (34) ; MINE* 

AD 80 ? : ? : ? "ENTER THESE LINES THEN " : ? "ENT 

ER PROGRAM 2" 

FD 90 NEW 

HF 100 DATA 104,104,133,204, 104,133,203,160,0, 
132,205,177,203,240,3,230,205,96,200,19 
2,10,208,244,96 

FN110 DATA 104,104,133,204,104,133,203,160,0, 
132,205,162,0,177,203,240,3,230,205,96 
NA 120 DATA 232,224,26,240,250, 165,203,24,105, 
40,133,203,144,2,230,204,24,144,230 
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FC 130 DATA 104,104,162,4,104,149,203,202,16,2 
50,165,203,56,233,7,133,203,176,2,198,2 
04,160,0,162,4 

OH 140 DATA 177,205, 153,196,2,200,202,16,247,1 
77,205,133,212,200,177,205,133,213,165, 

208.24, 101,213, 133,209 

HD 150 DATA 200,166,213,165,207,240,2,177,205, 

145.203.202.240.4.200.24, 144,241, 198,21 
2, 165,212,240,21,2 30 

PA 160 DATA 205,165,205,208,2,230,206,165,203, 
56,229,209,133,203,176,216,198,204,144, 
212,96 


Program 2. Atagraph 

Be sure to read the directions for entering this program before beginning. 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

DB 30 GOSUB 1 380 : D I M MINES (96) ,LINES ( 24 > , SIDES 
( 39 ) 

IK 40 DIM SEQS (26) , FILES (20) , AS ( 1 ) , VIEWS (26) : V 
IEWCNT=0:VCNT=1:XVIEW=1:GR=7:MEM=15000:V 
IEWS (0)= MEM 

AK 80 POKE 82, 1 : GRAPHICS 7:PGKE 764,255:P0KE 7 
52,1:RES TORE 90:F = 0 

CN 90 DATA 3,70,6,6,85,70,88,6,89,6,90,6 
JE 100 DLIST = PEEK (560) +256#PEEK (561 ) : HOME = PEEK 
(88)+256*PEEK(89):FRAME=H0ME+255 
NJ110 FOR X = 0 TO 5: READ A: READ B:POKE DLIST + A 
,B:NEXT X 

NN 120 POSITION 3,0: POKE 87,0:? # 6; " SaDHESHU R 
, H , L I 6 SPACES JHEISIUK 4 SPACES}";REG 
KN 130 ? "C9IEW BLEAR SCAN 0ND EXCHANGE 0IRECT 
ORY" 

FC 140 POKE 87,7: FOR Y = 0 TO 2 

KJ 150 COLOR 3 : PLOT 59-Y , 8-Y : DR A W TO 100 + Y,B-Y 

<0 160 DRAWTO 100 + Y, 36 +Y: DRAWTO 59-Y.36+Y 

BJ 170 DRAWTO 59 - Y , 8-Y : NE X T Y 

JN 180 POKE 87,7: POKE 208,39 : X = 70 : Y = 20 

DE 190 IN = STICK (0) : IF IN=15 THEN 320 


NG 200 

IF 

I N = 1 4 

THEN 

Y = Y- 1 


NE 210 

IF 

I N= 1 3 

THEN 

Y = Y+ 1 


NO 220 

IF 

I N = 1 1 

THEN 

X = X- 1 


FK 230 

IF 

I N= 1 0 

THEN 

Y = Y— 1 

: X = X - 

DB 240 

I F 

I N = 9 

THEN 

X = X — 1 : 

Y = Y + 1 

KJ 250 

IF 

I N = 7 

THEN 

X = X + 1 


DA 260 

IF 

I N = 6 

THEN 

X = X + 1 : 

Y = Y—1 

CO 270 

IF 

I N = 5 

THEN 

X = X + 1 : 

Y = Y+ 1 

FJ 280 

IF 

X< 60 

THEN 

X = 99 
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FH 290 
BN 300 
CA 310 
PP 320 

IL 330 


LD 340 

Cl 350 

OB 360 
IF 370 
LH 3S0 
OH 390 
BN 400 
HN 4 1 0 
PH 420 
NC 430 


OP 440 
JP 450 
AB 460 
01 470 
LC 4 80 
NN 490 
NG 500 

NK 5 1 0 
LG 520 
JC 530 
NJ 540 

LN 550 
61 560 
NK 570 

BI 580 
KF 590 
AI 600 

OB 6 1 0 


ON 620 
LI 630 
FA 640 


IF X >99 THEN X = 60 
IF Y < 9 THEN Y = 35 
IF Y >35 THEN Y = 9 

FOR T = 0 TO DEL: IF COL = 0 THEN COLOR 2:PL 
OT X , Y 

COLOR 0:PLOT X,Y:COLOR COL:PLOT X,Y:NEX 
T T: IF PEEK(53279>=3 THEN DEL = DEL+1: IF 
DEL+1>20 THEN DEL=0 

IF STRIG(0)=0 THEN COL=COL+l:IF C0L=4 T 
HEN COL=0 

POKE 87,0:POSITION 32,0:? #6;C0L:P0KE 8 
7,7 

IF PEEK(764)=255 THEN 190 

rem ■mi aanasj 

IF PEEK(764)=18 THEN GOTO 80 
IF PEEK(764)< >40 THEN 440 
REM M i I I I li i I 1 

REG = REG+1: IF REG >4 THEN REG = 0 
A=PEEK(708+REG) :B=I NT(A/16) :A=A-B*16 
POKE 87,0:POSITION 12,0:? #6;REG; ", " ;B; 
" , " ; A ; 11 " : POKE 87,7:P0KE 764,255:G0T0 

190 

IF PEEK(764)<>57 THEN 480 
REM ■■HEL1-C 4 

A=PEEK(708+REG)+16:IF A>240 THEN A=A=0 
POKE 708+REG,A:GOTO 420 
IF PEEK (764) < >0 THEN 520 
REM I I I I I I I 

A=PEEK(708+REG):B=INT(A/i6):A=A-B*16:A= 

A+l: IF A >15 THEN A = 0 

A=A+B*16:POKE 708+REG,A:GOTO 420 

IF PEEK (764)< >6 THEN 550 

REM M■ | f 'III 

IF V IEWCNT >0 THEN NOW=XNOW: XNOW=XNOW-1: 
GOTO 610 

IF PEEK (764)< >7 THEN 580 


RIGHT If 


IF V IEWCNT >0 THEN NOW=XN0W: X NOW=XN0W+ 1 : 
GOTO 610 

IF PEEK(764)<>15 OR VIEWCNT=0 THEN 620 
REM M I I I ■ I I I I I 

NOW=XNOW:XN0W=XNOW+40:IF XN0W>H0ME+2655 
THEN XN0W=H0ME+2655 

U=USR(ADR(MINE*),0,VIEWS(XVIEW),NOW):U= 
USR(ADR(MINE*),1,VIEWS(XVIEW),XNOW):POK 
E 764,255:GOTO 190 
IF PEEK(764)<>16 THEN 690 
REM {3 5 

IF VIEWCNT=0 THEN ? CHR$(125):? "NO VIE 
WS COMPLETED!":FOR A=0 TO 500:NEXT A:GO 
TO 80 
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Eft 650 

OF 660 
LC 670 
GN 680 
00 690 
NO 700 
HN 710 
DP 720 

ED 730 

SJ 740 

BK 750 
CG 760 
ID 770 
HP 780 
HH 790 

GB 800 

NG 810 
EN 820 


N0W=H0ME+2655:U=USR(ADR(MINE$),0, V IEWS( 
VCNT),NOW) 

VCNT=VCNT+1:IF VCNT>VIEWCNT THEN VCNT=1 
U=USR(ADR( M I N E $ ),1,VIEWS(VCNT),NDW) 

GOTO 420 

IF PEEK(764)<>22 THEN 750 
REM {3 H J;W§a> IgKgamiggM 
IF V IEWCNT = 0 THEN 640 

XNOW = HOME +1415:U = USR (ADR (MINE$) ,0,VIEWS 
(XVIEW) , X NO W) 

XVIEW=XVIEW+1: IF XV IEW>V IEWCNT THEN XVI 
EW= 1 

U=USR(ADR(MINE$),1,VIEWS(XVIEW!,XNOW):G 
OTO 420 

IF PEEK ( 764)<>62 THEN 1060 


SCHN 


IF VIEWCNT = 0 THEN 640 

GRAPHICS 7:NQW=HOME+1042:POKE 764,255 
FOR X = 1 TO VIEWCNT:U = USR(ADR (MINES) , 1 ,V 
IEWS(X > ,NOW) 

NOW=NOW+PEEK(VIEWS(X)+6)+1:IF NOW>HOME+ 
1070 AND F=0 THEN N0W=HOME+2563:F=1 
NEXT X:? "ENTER SEQUENCEINPUT SEQ$ 
TRAP 820:? :? :? "ENTER DELAY";:INPUT A 


LI 830 TRAP 830:? :? :? "GRAPHICS 5 OR 7";:INP 

UT GR:IF GR=5 THEN 850 
DP 840 IF GR<>7 THEN 830 

ED 850 GRAPHICS GR+1 6 : NOW = PEEK ( 88 )+PEEK ( 89 ) * 25 
6 

DB 860 IF GR = 7 THEN N0W = N0W + 221 5: POKE 208,39:G 
OTO 880 

CL 870 N0W = N0W + 685 : POKE 208,19 

EE 880 OLDX = 0 

GD 890 TRAP 890:B=1 

PL 900 X = ASC ( SEQ$ (B, B) ) - 64 

DJ910 IF X > VI EWCNT OR X<0 THEN X=1 

HC 920 IF OLDX = X THEN 940 

BO 930 U = USR (ADR (MINE*) , 0, VIEWS (OLDX) ,NOW) :U = U 
SR(ADR(MINE$),1,VIEWS (X),NOW):OLDX=X 
CH 940 IF PEEK (764) < >255 THEN 960 
BE 950 FOR Y = 0 TO A: NE X T Y:B = B+l:GOTO 900 
Cfl 960 POKE 208,39:POKE 764,255:GRAPH ICS 1 + 16 
NH 970 POKE 764,255:? #6:? #6:? #6;" ARE YOU R 
EADY TO ":? #6;" SAVE THIS SERIES?" 

0J 980 A = PEEK (764) : IF A = 255 THEN 980 
LM 9 90 POKE 764,255: IF A< >43 THEN 80 
Hft 1000 TRAP 1010:GRAPH ICS 0:? " ENTER FILENA 

ME ";:INPUT FILE$:GOTO 1020 
HC 1010 CLOSE #3: GOTO 1000 

Fft 1020 OPEN #3,8,0,FILES:PUT #3,VIEWCNT 
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CL 1030 
EB 1040 


HO 1050 
EB 1060 
AP1070 
LL 1080 
PD 1090 

PK 1100 
KN 1110 


DO 1120 
CD 1130 

LA 114 0 
N8 1150 


LL 1160 
IK 1170 


PP 1180 
LA 1190 
KD 1200 

JM 1210 
EJ 1220 
LP 1230 
HL 1240 
LP 1250 

NC 1260 

LF 1270 

LI 1280 

NO 1290 
MB 1300 
OG 1310 

II 1320 
BN 1330 


FOR X = V IEWS (0) TO MEM:PUT #3,PEEK(X):N 
EXT X:CLOSE #3 

? "THIS SERIES SAVED":? :? "DO YOU WIS 
H TQ DO ANOTHER SERIES";:INPUT A$:IF A 
$< >"Y" THEN GRAPHICS 0:END 
CLR :GOTO 40 

IF PEEK(764)<>42 THEN 1220 
LINE=HOME+375:TOP=0 

LJ = USR (ADR (LINES) , LINE) : IF PEEK(205)=0 
THEN LINE=LINE+40:TOP=TOP+l:GOTO 1090 
LINE=H0ME+1415:B0TT0M=26 

U=USR(ADR( L I N E $ ),LINE):IF PEEK(205)=0 
THEN LINE=LINE—40:BOTTOM=BOTTOM—1:GOTO 
1110 

LINE=HOME+375:LEFT=0 

U=USR(ADR(SIDEt),LINE):IF PEEK<205>=0 
THEN LEFT=LEFT+1:LINE=LINE+1:GOTO 1130 
LINE=H0ME+375+9:RIGHT=9 

U=USR(ADR(SIDE$),LINE):IF PEEK(205)=0 
THEN RIGHT=RIGHT-1:LINE=LINE-1:GOTO 11 
50 

HGT=BOTTOM-TOP:WIDE=RIGHT—LEFT:VIEWCNT 

=VIEWCNT+1:VIEWS(VIEWCNT)=MEM 

TRAP 1220:FOR X=0 TO 4:P0KE MEM,PEEK(7 

08+X):MEM=MEM+1:NEXT X:POKE MEM,HGT+1: 

POKE MEM+1,WIDE+1:MEM=MEM+2 

A=BOTTOM*40:LINE=HOME+375+A+LEFT 

FOR Y=0 TO HGT:FOR X=0 TO WIDE 

A=PEEK(LINE+X):POKE MEM,A:MEM=MEM+1:NE 

XT X:LINE=LINE-40:NEXT Y 

GOTO 960 

IF PEEK(764)<>58 THEN 1340 

TRAP 1270:POKE 764,255:P0KE 82,2 
GRAPHICS 0:? :? " t M:» CM >> LI 

».*!=■ : OPEN #3,6,0, "D: *. #" 

FOR X = 0 TO 5000:GET #3,A:? CHR* (A) ; :NE 
XT X 

CLOSE #3:? "DO YOU WISH TO LOAD AN OLD 
FILE";:INPUT A*:IF A$<>"Y" THEN 80 
TRAP 1290:? "ENTER FILENAME";:INPUT FI 
LE$:OPEN #3,4,0,FILE$:GOTO 1300 
CLOSE # 3:GOTO 1280 

GET #3,A:VIEWCNT=VIEWCNT+A:TRAP 1320 
GET #3,A:POKE MEM , A:MEM = MEM+1:G0TO 131 
0 

CLOSE #3:MEM=15000:FOR X=1 TO VIEWCNT 
VIEWS(X)=MEM:MEM = MEM + PEEK(MEM + 5) #PEEK ( 
MEM+6)+7:NEXT X:GOTO 80 


71 



Chapter 3 


CD 1340 

NN 1350 
KA 1360 
HE 1370 
EA 1380 
CF 1390 
CE 1400 
IH 1410 
PN 1420 
EC 1440 
JB 1450 


IF PEEK(764)<>61 THEN POKE 764,255:G0T 
0 190 

IF GR=5 THEN GR=7:G0T0 1370 
IF GR=7 THEN GR=5 
POKE 764,255:GOTO 770 
REM 

GRAPHICS 2+16:POSITION 5,3 

POSITION 1,5:? #6;"THE BASIC VERSION" 
POSITION 3,6:? #6;"OF gUTSIiaiS" 
POSITION 3,8:? #6;"by ed chaney" 

FOR T=0 TO 500:NEXT T:RETURN 
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Superplot 

Mike Portuesi 


With this plotting and drawing utility you'll be able to create dis¬ 
plays easily and save them for use in your own programs. Re¬ 
quires at least 24K RAM and a joystick. 

COMPUTERS Second Book of Atari contains an article called 
"Plotting Made Easy." The program that accompanies the arti¬ 
cle allows you to draw on the screen and have the computer 
write a series of PLOT-DRAWTO statements for use in an¬ 
other program. I've added some improvements to this program 
and call the new program "Superplot." 

How to Use Superplot 

Type in Superplot using "The Automatic Proofreader" in 
Appendix C. Make a few backup copies just in case. Be sure 
not to run the program until you've saved it a few times. Not 
only is this program self-modifying, but the computer could 
also lock up if you fail to type in the machine language data 
correctly. 

When you run the program, there will be a short pause as 
it initializes. Then you'll be asked a series of questions dealing 
with color and luminance for the cursor, background, and each 
of the color registers. Enter the standard Atari color and lumi¬ 
nance values for each of these prompts (the same values used 
in the SETCOLOR statement). When the questions are over, 
the program sets up its display. 

The Indicator Line 

You should notice a set of indicators on the bottom of the dis¬ 
play. The first two indicators (from left to right) are X= and 
Y = . These tell the current location of the cursor. The co¬ 
ordinates you see there are the same as the X,Y values of the 
PLOT statement, and they point to the center blank spot of 
the cursor. The next indicator, C = , tells you what color you're 
drawing in. Note that this indicator is the same value as the 
Atari COLOR statement, and not a color register number. The 
next indicator, LAST = , tells you the last thing you did on the 
display, whether it was plotting a point or drawing a line. If 
you just plotted a point on the display, the indicator will read 
P. If you just drew a line, it will read D. The last indicator is 
M. It tells you the amount of free memory in bytes. This 
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serves as a warning in case you're running out of memory. 
There are also four color bars under the text window. These 
will be discussed below. 

The Cursor 

At the upper left of the display is a small cross. This is the 
cursor. If you don't see it, or if you see only part of it, use the 
joystick to move it into view. 

To plot a point, move the cursor to the desired spot and 
press the fire button. To draw a line, move the cursor to the 
endpoint of your intended line and press the fire button again. 
The computer will draw a line to connect these two. To plot a 
single point, simply press the fire button twice. This will ac¬ 
tually PLOT and DRAWTO a line to the same spot, but when 
the program writes the BASIC subroutine, it will show up as 
only one PLOT statement. If you want to connect lines, make 
the endpoint of the first the beginning of the second by push¬ 
ing the fire button again after you draw the first line. For ex¬ 
ample, if you want to draw a square, follow these steps: 

1. Move the cursor to the first corner of the square and press 
the fire button. 

2. Move the cursor to the second corner and press the fire but¬ 
ton twice. This draws the first side of the square and plots 
the beginning of the second. 

3. Move the cursor to the third corner and press the fire but¬ 
ton twice. 

4. Continue this process until the square is completed. 

When the program writes the BASIC subroutine, the 
instructions for the square will come out as one PLOT state¬ 
ment and a series of DRAWTOs. 

The Color Bars 

The color bars are used to change the color you wish to draw 
with. To change the drawing color, simply move the cursor 
over the appropriate bar and push the fire button. The next 
line you draw will be in the color selected. Note that the blank 
space in the middle of the cursor must be over the color bar to 
make the change. 
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The Console Keys 

Each of the console keys performs a different function. 

OPTION. When you press this key, the program will ask 
for an output device. Enter C: to save your BASIC subroutine 
to cassette, D:filename.ext to save your routine to disk, or P: 
to list your routine out to the printer. This program saves the 
routine in LIST format. To enter it back in, use the ENTER 
command. If you saved it on disk, use ENTER 
"D:filetiame.ext" to retrieve it from disk, and if you saved it to 
cassette, use ENTER “C\". 

After the program saves your routine, it will ask if you 
want to clear it out in memory. Answering Y will result in the 
computer deleting all the lines it has added to the program. It 
will then return you to graphics mode 7 with a clean display, 
ready for a new picture. If you don't want to save your sub¬ 
routine, but simply want to get rid of it, push the RETURN 
key in response to the "Enter output device?" prompt. It will 
then ask if you want to clear out the lines. 

SELECT. This key is used to change the colors in each 
color register. The computer will ask for the color register 
number (see the chart above to pick the right one), the Atari 
color value, and the luminance of that color. It will then 
change the color in that register. 

START. Pressing this key will cause the computer to add 
statements to the program. All the lines you have drawn will 
automatically be converted to PLOT-DRAWTO statements. 
They will be stored with line numbers beginning at 20000, 
continuing upward by increments of ten. If you don't press 
START, the program will automatically update itself after ev¬ 
ery 20 lines you draw on the screen. Note that this option will 
not work if you have just plotted a point on the display. You 
must have just completed drawing a line for this option to 
work. 

The Space Bar 

If you make a mistake drawing a line, hit the space bar. The 
program will delete the last line drawn on the display. Each 
time you hit the space bar, the computer will erase the pre¬ 
vious line drawn. You can erase as many lines as you wish 
this way. 
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There are a few restrictions on its use, however. The first 
is that you cannot delete a line whose coordinates have al¬ 
ready been made part of the program. If you want to do this, 
just edit the finished subroutine. The second limitation is that 
the program uses the background color to erase the offending 
line from the display. In doing this, it may inadvertently erase 
parts of other lines as well. This will not affect program opera¬ 
tion in any way, and when the program modifies itself, it will 
restore the erased parts as it redraws the display. 

Like the START key, this option will not work if you have 
just plotted a point. If you plotted a point in the wrong spot, 
finish the line before using the space bar. The last thing to 
note about this option is the way it handles the current draw¬ 
ing color. 

Superplot 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

0130 DIM MEM*(1),CURSOR*(7),PX(20),PY(20),DRX 
(20) ,DRY ( 20) , C ( 2 0 ) ,COL (3) ,DEVICE*(15) ,AN 
* ( 1 > ,JOY*(29) 

BC 4 0 LINENO = 20000: SETPM = 9020: INTARRAY=7020:SE 
TDIS=8020:SAVLIN=11020 

NH 50 PLTDR = 2020: CHNGCOL=1020: SWITCH=3020: MODP 
ROG=6020:DELCOMND=4020:INCOLOR=5020:INIT 
ML=10020:UNTRAP=40000 
NA 60 FLAG = 0:P=1 : C=1 

NI 70 GOSUB INTARRAY: GOSUB INITML 

HI 80 GRAPHICS 0:? :? : POKE 201,9:? , " * * * SUPE 

R PLOT ***":POKE 201,10 
PA 90 ? : TRAP 90:? "ENTER CURSOR COLOR" ; : INPUT 
CC:TRAP UNTRAP 

HF 100 IF CC<0 OR CC > 15 THEN 90 

OP 110 TRAP 110:? "ENTER CURSOR LUMINANCE"; : IN 
PUT CL:TRAP UNTRAP 
LB 120 IF CL< 0 OR CL>14 THEN 110 

NO 130 TRAP 130:? "ENTER BACKGROUND COLOR"; : IN 
PUT BC:TRAP UNTRAP 
KC 140 IF BC< 0 OR BC>15 THEN 130 

PI 150 TRAP 150:? "ENTER BACKGROUND LUMINANCE" 
;:INPUT BL:TRAP UNTRAP 
LH 160 IF BL< 0 OR BL>14 THEN 150 

AG 170 COL (3) =16*BC + BL 
AL 180 FOR 1=0 TO 2 
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IB 190 TRAP 190:? "ENTER COLOR FOR REG. " ; I ; : I 
NPUT RC:TRAP UNTRAP 
MF 200 IF R C< 0 OR RC > 15 THEN 190 

JJ210 TRAP 210:? "ENTER LUMINANCE FOR REG. "; 

I;:INPUT RL:TRAP UNTRAP 
NB 220 IF RL < 0 OR RL>14 THEN 210 
DJ 230 COL(I)=16*RC+RL 
BD 240 NEXT I 

NH 250 BASE = PEEK ( 106)-16: POKE 106, BASE 
OF 260 GRAPHICS 7:C0L0R C:GOSUB SETDIS:GOSUB S 
ETPM 

IC 265 FOR 1=0 TO 2-.P0KE 708+I , COL ( I ) : NE X T I:P 
OKE 712,C0L(3) 

M6 280 DX = USR (JOY, 0,0)-1 
MJ 290 DY = USR ( JOY, 0, 1 )-1 
DI 300 X = X + DX: Y=Y + DY 
EM 3 1 0 IF X > 1 59 THEN X = 0 
EL 320 IF X<0 THEN X=159 

AK 330 IF Y >95 THEN Y = 0 : MEM* ( 1 ) = " { , J " : MEM* ( 255 
)="{,}":MEM*(2)=MEM* 

AJ 340 IF Y< 0 THEN Y = 95: MEM* ( 1 ) =" { , J " : MEM$ (255 
)="{, > " :MEM*(2)= MEM* 

CG 350 MEM*(Y+14,Y+20)=CURSOR* 

OH 360 POKE 53248, X + 46 

OE 370 POKE 656,0: POKE 657,5:? X;" " ; : POKE 65 

7,13:? Y;" "; 

EH 380 IF Y >9 1 AND ABS ( STR I G ( 0 ) - 1 ) THEN GOSUB 
CHNGCOL:GOTO 280 

OP 390 IF ABS (STRIG (0)-1 ) THEN GOSUB PLTDR 
BO 400 KEY = PEEK (53279) : IF KEY< >7 THEN GOSUB SW 
I TCH 

KJ 405 IF PEEK (764) = 33 THEN POKE 764,255 : GOSUB 
DELCOMND 
61 410 GOTO 280 
KD 1000 REM CHNGCOL 

6N1010 REM Changes current drawing color 
GK 1020 C= I NT ( X /40 ) 

IG 1030 COLOR C 

NA 1040 POKE 656,0: POKE 657,21:PRINT C; 

CK 1050 C (P) =C 
KH 1 060 RETURN 
CM 2000 REM PLTDR 

OF 2010 REM PLOTs, DRAWTOs, and saves coordina 
tes 

PB 2020 IF FLAG THEN DRAWTO X,Y:POKE 656,0:POK 
E 657,30:? "D";:DRX(P)=X:DRY(P)=Y:P=P+ 

1 :GOTO 2050 

BD 2030 PLOT X, Y: PX (P) =X: PY (P) =Y 
NE 2040 POKE 656,0 : POKE 657,30:? "P"; 

LN 2050 FLAG = ABS (FLAG-1 ) 
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DH 2060 
HP 2065 
Nfl 2070 
HJ 3000 
F6 30 1 0 
CJ 3020 
HF 3030 
00 3040 
KI 3050 
00 4000 
FG 40 10 

FI 4020 

NB 4025 

HH 4030 

IK 4040 
LJ 4050 
KH 4055 

KH 4 0 6 0 
FE 4070 
HL 4080 

0E 4090 
LP 5000 
PO 50 1 0 


LJ 5020 


HH 5030 
OF 5040 


CH 5050 
IP 5060 


EB 5070 
KB 5080 
OF 5085 
IJ 5087 
AO 5088 
KO 5090 
PP 5093 
HL 5095 
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IF P=21 THEN P=20:G0SU3 MODPROG 
IF STRIG(0)=0 THEN 2065 
POKE 77,0:RETURN 
REM SWITCH 

REM Checks console switches 
IF K E Y = 3 THEN GOSUB SftVLIN 
IF KEY=5 THEN GOSUB INCOLOR 
IF KEY=6 THEN P=P-l:GOSUB MODPROG 
RETURN 

REM DELCOMND 

REM Deletes last PLOT-DRAWTO and COLOR 
(if one was made) 

IF P=1 THEN RETURN : REM just -finished 
saving screen 

IF FLAG THEN RETURN :REM just PLOTted, 
must DRAWTO first 

COLOR 0:PLOT PX(P-1),PY(P-1):DRAWT0 DR 
X(P-1),DRY(P-1) 

COLOR C 

IF C(P-1)=-1 THEN P=P—1:RETURN 
IF P=2 THEN C=C(1):COLOR C:POKE 657,21 
: ? C;:P=P-1:RETURN 
C(P-1)=-l 

FOR I=P-1 TO 1 STEP -1 

IF C(IX>-1 THEN COLOR C ( I ) : C = C ( I ) : POK 
E 657,21:? C;:P=P-l:POP :RETURN 
NEXT I:P=P-1:RETURN 
REM INCOLOR 

REM Change value of user—specified col 
or r egist er 

GOSUB 5095:POKE 656,1:P0KE 657,2:? "En 
ter register to change" ; :TRAP 5020: INP 
UT REG:TRAP UNTRAP 

IF REG< 0 OR REG >4 OR REG = 3 THEN 5020 
GOSUB 5095:POKE 656,1:P0KE 657,2:? "En 
ter col orTRAP 5040: INPUT RC:TRAP UN 
TRAP 

IF RC< 0 OR RC >15 THEN 5040 
GOSUB 5095:POKE 656,1:POKE 657,2:? "En 
ter 1uminance";:TRAP 5060:INPUT RLiTRA 
P UNTRAP 

IF RL< 0 OR RL >14 THEN 5060 
SETCOLOR REG,RC,RL 
GOSUB 5095 

IF REG=4 THEN C0L(3)=16*RC+RL:RETURN 

COL(REG)=16*RC+RL 

RETURN 

REM Short routine to clear prompt line 
POKE 656,1:POKE 657,2:? "C36 SPACES!"; 

RETURN 
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IN 6000 
CH 6010 
FB 6020 
AF 6025 
EK 6030 
NP 6040 
FE 6050 
JB 6055 
AO 6060 
ON 6065 


KH 6070 

LJ 6075 
EH 6080 
C6 6085 
EP 6100 
DP 6 1 1 0 
IF 6140 
NH 6145 

JD 6147 

HD 6 1 4 8 
HE 6150 


KN 6 1 6 0 
BF 7000 
KH 70 1 0 

GH 7020 
GD 7030 
PA 7040 
EE 7050 
FF 7060 
BD 7070 
KP 7080 
HI 8000 
OG 8010 

FK 8020 
DJ 8030 
GL 8040 
HJ 8050 
CP 8060 
CF 8065 
FI 8070 


REM MODPROG (The biggie!) 

REM Modifies program to add statements 
IF P=0 OR FLAG THEN P=P+1:RETURN 
POKE 53248,0:POKE 559,34:P0KE 54286,64 
GRAPHICS 0 
POSITION 2,2 

FOR 1 = 1 TO P:? LINENO;" " ; 

IF C <1)0-1 THEN PRINT " C . " ; C ( I ) ; " : " ; 

IF 1=1 THEN 6070 

IF PX ( I)=DRX (I — 1> AND PY<I>=DRY<I-1) T 
HEN ? "DR. ";DRX (I) ; ", ";DRY ( I ) :GOTO 60 
85 

IF P X (I)=D R X (I) AND PY(I)=DRY(I) THEN 
? "PL. ”;PX(I) ; ", ";P Y(I) :GOTO 6085 
? "PL. ";PX<I> ; ", " 5 PY<I> ; " : " ; 

? "DR. ";DRX < I ) ; ", "jDRY ( I ) 

LINENO=LINENO+10 

NEXT I 

GOSUB 11500 

GRAPHICS 7:GOSUB SETDIS:GOSUB 20000 
ATAB=PEEK(140)+256*PEEK(141):AD=BASE*2 
56+512:OFFSET=AD-ATAB 

HIGH=INT(OFFSET/256):L0W=0FFSET-256*HI 
GH:POKE VTAB+2,LOW:POKE VT AB + 3,HIGH 
POKE 559,46:POKE 53248,X+46 
GOSUB INTARRAY:P=1:FOR 1=0 TO 2:P0KE 7 
08+1,COL(I):NEXT I:POKE 712,COL ( 3) :JOY 
=ADR(JOY*) 

RETURN 

REM INTARRAY 

REM Initializes PX(, PY(, DRX(, DRY ( , 

C( ar r ay s 

FOR 1=1 TO 20 

PX(I)=0:PY(I)=0 

DRX(I)=0:DRY(I)=0 

C(I )=-1 

NEXT I 

C(1)=C 

RETURN 

REM SETDIS 

REM Sets up display at bottom o-f scree 
n 

POKE 656,0:POKE 752,1 
POKE 657,2:? " Fri=W " ; X • " "; 

POKE 657,10:7 "Z^";Y;" 

POKE 657,18:? ;C; 

POKE 657,33:? "EH";FRE(0); 

POKE 656,0:POKE 657,24:? " m : 3 a " ; 

POKE 656,2:POKE 657,11:? "*** SUPER PL 

OT ***"; 
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KC 8 080 DLIST=PEEK(560)+256*PEEK(561> 

HI 8090 POKE DL 1ST + 90,8 

DB 8 09 5 TXTMEM=PEEK (DLIST+86) +256*PEEK (DLIST + 8 
7):RESTORE 8107 

NF 8 10 0 FOR I=TXTMEM+120 TO T X T M EM + 1 20 + 9 : R E A D 
BYTE:POKE I,BYTE: NE X T I 
OK 8 10 7 DATA 0,0,5,85,85,170,170,175,255,255 
BO 8 10 8 POKE DL1ST + 89, 130: POKE DLIST+84,141 
IL8110 POKE 5 12,0: POKE 513,6:P0KE 54286,192 
KL 8 120 RETURN 
06 9000 REM SETPM 

OB 9010 REM Initializes PM graphics 
EE 9020 VTAB=PEEK(134)+256*PEEK(135) 

CK 9 030 ATAB = PEEK ( 140) +256#PEEK ( 141 ) 

IJ 9 040 BASE = BASE+1 2 : POKE 54279, BASE 
AN 9050 0FFSET=(BASE*256+512)-ATAB 
DP 9060 HIGH=INT (OFFSET/256) :L0W = 0FFSET-256*HI 
GH 

OH 9 0 70 POKE VTAB + 2, LOW: POKE VTAB + 3, HIGH 
DL 9080 POKE VTAB + 4,0 : POKE VTAB + 5,1 
EA 9090 POKE VTAB + 6,0: POKE VTAB+7,1 
II 9095 MEM$(1)="I,>" :MEM$ (255) ="{,>" : MEM* (2) = 
MEM$ 

JB 9100 POKE 704,16*CC + CL 

60 9 1 1 0 RESTORE 9130:FOR 1 = 1 TO 7 

DM 9 120 READ BYTE: CURSORS ( I , I ) = CHR$ (BYTE) : NEXT 
I 

HM 9130 DATA 0,32,32,216,32,32,0 
FM 9 140 ME M$ (Y+14, Y + 20) = CURSOR$ 

BN 9 15 0 POKE 53248, X + 46 
AI9160 POKE 559,46: POKE 53277,3 
LB 9 170 RETURN 
KC 10000 REM INITML 

0L 10010 REM Initializes m/1 interrupt routine 
s & joystick driver 
AO 10020 RESTORE 10500: Z = 0 

F0 10025 IF PEEK ( 1536) =72 AND PEEK ( 1 597 ) =64 TH 
EN 10060 

PM 10030 READ BYTE: IF BYTE = -1 THEN POKE 512,0: 

POKE 513,6:GOTO 10060 
NI 10040 POKE 1536 + Z, BYTE 
KK 10050 Z = Z + 1 : GOTO 10030 

GL 10060 JOY = ADR (JOY$): RESTORE 10600:FOR Z = 1 T 
0 29:READ BYTE:J0Y$(Z, Z)=CHR$ (BYTE ) :N 
EXT Z:RETURN 

MD 10500 DATA 72,138,72,169,10,162, 148,141,10, 
212,141,23,208,142,24,208,169,6,162,3 
0, 141,1,2, 142,0,2, 104, 170, 104 
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GF 10510 


ON 10520 
HB 10530 
AO 10600 


KD 1 1000 
PI 11010 
IC 1 1 020 


FL 1 1030 


LH 1 1040 

KE 1 1050 
HG 1 1060 
DB 1 1070 

IC 1 1080 
HA 1 1090 
OH 1 1 100 


DO 11110 
EE 1 1 120 


LH 1 1 130 

OL 11135 
MN 1 1 1 40 


NI 11150 
BC 1 1 160 
AA 1 1500 

GO 11510 


DATA 64,72, 138,72, 173, 197,2, 174, 198,2 
,141,10,212,141,23,208,142,24,208,169 
,6, 162,0, 141,1,2, 142,0,2, 104, 170 
DATA 104,64 
DATA -1 

DATA 104,104,104,170,104,189,120,2,40 
,176,2,74,74,41,3,56,233,2,16,2,169,2 
,133,212,169,0,133,213,96 
REM SAVLIN 

REM Saves lines to output device 
POKE 656,1:POKE 657,2:7 "Enter output 
device"INPUT DEVICE*:IF DEVICE*="" 
THEN 11040 

POKE 54286,64:LIST DEV ICE*,20000,3276 
7:POKE 512,0:POKE 513,6:P0KE 54286,19 
2 

GOSUB 5095:POKE 656,l:POKE 657,2:7 "C 
lear lines (Y/N):INPUT AN* 

IF AN*="N" THEN GOSUB 5095:RETURN 
IF AN*< >"Y" THEN 11040 

POKE 53248,0:POKE 559,34:P0KE 54286,6 
4 

GRAPHICS 0:POSITI ON 2,2:COUNTER=1 
FOR Z = 200 0 0 TO LINENO STEP 10 
7 Z:COUNTER=COUNTER+l:IF COUNTER=20 T 
HEN COUNTER=l:GOSUB 11500:7 CHR*(125) 

:POSITI ON 2,2 
NEXT Z:GOSUB 11500 

GRAPHICS 7:GOSUB SETDIS:ATAB=PEEK(140 
>+256*PEEK(141):AD=BASE*256+512:0FFSE 
T = AD-AT AB 

HIGH=INT(OFFSET/256):L0W=0FFSET-256*H 
IGH:POKE VTAB + 2,LOW:POKE VT AB + 3,HIGH 
POKE 559,46:POKE 53248,X+46 
GOSUB INTARRAY:P=1:LINENO=20000:FOR I 
= 0 TO 2:POKE 708+I,COL( I ) :NEXT I:POKE 
712,COL(3):JOY=ADR(JOY*) 

RETURN 

REM Short routine to do modifications 
7 "CONT":POSITION 0,0:POKE 842,13:STO 
P 

POKE 842,12:RETURN 
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Graphics Plus 

James Luczak 


"Graphics Plus” is a utility that lets you design playfield graphics 
quickly and easily. It also produces the BASIC code so that you 
can use your creations in your own programs. 

"Graphics Plus" is a feature-packed utility. Here is a list of its 
features: 

• Graphics Plus is menu-driven, so there are no complicated 
sequences of operations to remember. 

• Pictures can be drawn in graphics modes 3-8. 

• Circles and ellipses or any part of a circle or ellipse can be 
drawn—just give size and location. 

• It draws lines. 

• All positioning is done by using cursor movement. Position 
the cursor with the arrow keys and press the appropriate key 
(the menu will keep you informed) and you're on your way. 

• Text can be added with graphics in any graphics mode. 

• Each drawing stored is assigned different line numbers. This 
allows many drawings to be stored without losing previously 
stored pictures. 

• Graphics Plus saves as many pictures as memory allows. 

• Any or all drawings can be erased from storage. 

• Pictures drawn in one mode can be displayed in any other 
graphics mode. 

• Graphics Plus can be used just as easily with cassette as with 
disk. 

Easy to Use 

Everything you need to know to use Graphics Plus appears in 
the text window at the bottom of the screen. The only excep¬ 
tion is the color command. By pressing 0, 1, 2, or 3 you will 
change the color you are drawing with (modes 3, 5, 7). The 
menu will show what color is being used. Remember, color 2 
will not show up in modes 4, 6, and 8. 

As an example, let's draw a square in graphics mode 5 
and save it. As Graphics Plus initializes, it puts you into 
graphics mode 7. So to draw in mode 5, press G. Now choose 
mode 5 by pressing 5. You will return to the main menu. No¬ 
tice that the mode has changed in the text window. To draw a 
line, choose option L. This will put you into the line draw 
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mode. A flashing cursor should be at the upper-left corner of 
the screen. Move the cursor around by using the arrow keys. 
Notice that the X,Y coordinates are shown in the text window. 
Also, the cursor will wrap around the screen vertically and 
horizontally. 

Let's draw the square. Place the cursor wherever you like. 
Then press P. You will hear a beep and the word PLOT will 
appear in the text window. Now move the cursor to where you 
want the line to end and press D. You will hear another beep 
and the word DRAWTO will take the place of PLOT in the text 
window. At the same time a line will be drawn from where 
you pressed P to where you pressed D. Press P again, move 
the cursor to the next corner of the square, and then press D. 
(The DRAWTO command will always draw the line from the 
position of the cursor when you last pressed P to the cursor's 
present position.) Continue in this manner until you have a 
square. 

If you want to remove the entire picture and start over, re¬ 
turn to the main menu (press RETURN), select the graphics op¬ 
tion (press G), and press 5 (for graphics mode 5). This will clear 
the screen. You can reenter the line draw mode by pressing L. 

If you want to remove only part of the picture, press 0. 
This will cause your next PLOT and DRAWTO to be in the 
background color, erasing the line (this works with circles and 
ellipses also). 

Saving Your Masterpiece 

Now that you have a picture, let's save it. Return to the main 
menu (press RETURN), then press P (picture submenu). The 
picture option will appear in the text window. Since we want 
to save the picture, press S. Watch the text window for instruc¬ 
tions. Using the arrow keys, position the cursor in the upper- 
left corner of the square. Make sure you place the cursor there. 
If you place it in the upper-left corner of the screen, you will 
save the entire screen (modes 3, 4, and 5 only). After the 
cursor is positioned, press S. You will hear a double beep. 
Now, using the arrow keys, move the cursor to the lower-right 
corner of the square, and press S again. 

The program will start to store the picture into a string 
(A$). There will be a delay, depending on how big the picture 
is and what graphics mode you're in. After the picture has 
been saved, you'll be asked to assign it a number. Assign it 
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the number 3. Press 3, then RETURN. The program will now 
enter the RETURN key mode and add the picture to the pro¬ 
gram starting at line 10300. If you assigned the picture the 
number 5, the saved picture would start at line 10500. Assign¬ 
ing the picture the number 0 would start saving the picture at 
line 10000. After the picture has been saved, you'll be re¬ 
turned to the main menu. Saving the picture only saves it to 
memory; you'll need to use the quit option to resave the entire 
program (more on this below). 

If you want to save a picture and assign it the number of 
an already existing picture, don't worry. Graphics Plus will 
automatically check to see if there is a picture stored with that 
number and will erase it. Save the new picture in its place. 

This may sound a bit complicated, but once you try it, it 
becomes easy. Remember, the text window will always display 
all the information you need to work with. 

Some Options 

The program is quite simple to use since instructions appear 
on the screen as needed. Let's just review a few other options. 

In the picture submenu (press P in the main menu) the 
view option allows you to view the pictures that you have 
stored. For instance, if you've stored pictures 1, 2, 3, 4, and 5, 
and you enter the number 1, all of your pictures will be dis¬ 
played one after the other. If you choose 3 instead of 1, pic¬ 
tures 3-5 will be displayed. After the last picture is displayed, 
the main menu returns. 

Main menu options C and E (circle and ellipse) are easy 
to use. Position the cursor and provide the program with the 
information it requests. Keep an eye on the text window. 

When you position the cursor, you'll be asked if the position is 
correct. Answer yes or no. After you've entered all the nec¬ 
essary information, a summary of the circle or ellipse infor¬ 
mation will appear. Again you'll be asked if it's correct or not. 
If you answer yes, the circle or ellipse will be drawn. It's a 
good idea to write down this information. Later, if you want to 
erase the circle or ellipse, all that you'll need to do is use color 
0 and enter the same parameters. 

The comments option (K) allows text in any graphics 
mode. "Textplot" is used for text in graphics modes 3-7. Text 
in graphics mode 8 will be normal size. However, text in 
modes 3-7 will be larger than normal, depending on which 
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mode you're in. For instance, text in graphics 3 is really big. 
The article "Textplot" (COMPUTERS First Book of Atari Graph¬ 
ics) will give you some ideas of what can be done with 
Textplot. 

The Quit option (Q) is very important. All pictures saved 
with Graphics Plus are only temporarily stored. The only time 
pictures are permanently saved is when you use the Quit op¬ 
tion. When Quit is used, the entire program is saved to disk or 
cassette, including the pictures you have saved. So, remember, 
if you want your drawings permanently saved, use the Quit 
option. As printed here, the program will be saved to disk 
when you use the Quit option. If you are a cassette user, you'll 
need to substitute this line for line 3700: 

3700 IF CHR$(A) = "Q" THEN CSAVE:GRAPHICS 0:CLR:END 

Adding Pictures to Programs 

Program 2 is an example of how to use the data created by 
Graphics Plus in your own programs. 

Start by listing the line numbers that contain the picture 
data you want into a temporary storage file. If you want to 
use, say, picture 5, the picture data will start with line 10500, 
and the last line with data for picture 5 will be the line num¬ 
ber with a return. 

Example: 

LIST " D: PICT 5 ", 10500, 10507 (Disk) 

LIST "C:",10500, 10507 (Cassette) 

Type in or load Program 2 and then enter the picture data. 
Example: 

ENTER " D: PICT 5" (Disk) 

ENTER "C:" (Cassette) 

That's all there is to it. By adjusting the X,Y coordinates, 
you can place your picture anywhere on the screen, as many 
times as you like. 

Program 1. Graphics Plus 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PK 500 GRAPHICS 2:P0SITI0N 5,2:? #6 ; ” GRAPH I CS 11 
D1 520 POSITION 7,4:? #6;"PLUS" 

LJ 540 CLR : GOTO 3180 

BH 560 FOR Y = N TO Q: FOR X = M TO P:LOCATE X,Y,R: 
IF R=0 THEN R=4 


85 




Chapter 3 


PL 580 FL 1 = FRE ( 0 ) 

CN 600 S = S+1 : IF FL1<800 THEN 3060 

DO 620 A$(S,S)=CHR*(R+64):NEXT X:NEXT Y:T1=P-M 
+1:U1=Q-N:RETURN 

EP 640 SOUND 0,SD, 10, 10:FOR DELAY=1 TO 15:NEXT 
DELAY:SOUND 0,0,0,0:RETURN 
GO 660 FOR 1 = 1 TO AQ:? " CRIGHT}"; :NEXT I : RETUR 
N 

BP 680 ? CHR*(125):? "CUP>";D$;" BEm” ; B ; " " ; G 

RPX; " X";GRPY; " ■EB" ; X ; " KB" ; Y: RETURN 
NP 700 ? CHRt ( 125) : ? "CUP>USE ARROWS TO MOVE C 
URSOR" :? " MJ =PLOT *±»=DRAWTO ■:^iU:L r K = 

MENU":TI=1:TIM=0 

EF 720 IF TIM THEN SOUND 0,45 , 1 0,8 : FOR DELAY= 1 
TO 5:NEXT DELAY:SOUND 0,0,0,0 
PF 740 IF X >GRPX THEN X = 0 
PF 760 IF X<0 THEN X = GRPX 
Ph 780 IF Y >GRP Y THEN Y = 0 
PD 800 IF Y< 0 THEN Y = GRPY 
PG 820 LOCATE X,Y,QZ 
FO 840 IF QZ = 0 THEN F = F5:G = 0 

PI 860 IF QZ = 1 OR QZ =2 OR QZ = 3 THEN F = 0:G = QZ 
NH 880 TI = 1 : IF TIM>8 AND B> = 6 THEN TI=4 
fU 900 COLOR F: PLOT X,Y:FOR DELAY = 1 TO B J : NEXT 
DELAY 

LH 9 20 COLOR G:PLOT X,Y 

KC 940 ? " X = " ; X , " Y = ” ; Y , " KKHMillK ";F5;" ";C$;" 

CUPJ":IF DRP=1 THEN COLOR F:PLOT LPX,LP 
Y 

NN 960 IF PEEK (764) = 50 THEN POKE 76 4,255 : F5 = 0 : 
GOTO 720 

NO 9 80 IF PEEK (764) = 31 THEN POKE 7 6 4,255 : F5= 1 : 
GOTO 720 

PO 1000 IF PEEK (764) =30 THEN POKE 764,255:F5 = 2 
:GOTO 720 

PG 1020 IF PEEK (764) = 26 THEN POKE 764,255:F5 = 3 
:GOTO 720 

El 1040 IF PEEK (764) = 7 THEN POKE 76 4,2 55 : X = X + T 
I:TIM=TIM+1:GOTO 720 

EL 1060 IF PEEK ( 764 ) =6 THEN POKE 76 4,255 : X = X - T 
I:TIM=TIM+1■GOTO 720 

HN 1080 IF PEEK (764) =15 THEN POKE 764,255:Y = Y + 
TI:TIM=TIM+1:GOTO 720 

HH 1100 IF PEEK (764) =14 THEN POKE 764,255:Y=Y- 
TI :TIM = TIM+1:GOTO 720 
FL 1120 IF K= 1 OR K = 2 THEN 1220 

LK 114 0 IF PEEK (764) = 10 THEN POKE 764,255:LPX = 
X:LPY = Y:DRP=1 :C$=" :SD=120:GOSU 

B 640:TIM=0:GOTO 720 
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LA 1160 


BH 1 180 

P! 1200 
LJ 1220 

KB 1240 

PO 1260 
NE 1280 


IP 1300 
CM 1320 


KD 1340 
KI 1360 
UK 1380 
CM 1400 

EK 1420 

BK 1440 
PN 1460 
m 1480 
OC 1500 


NI 1520 
BN 1540 
AI 1560 
LN 1580 

ON 1600 
PJ 1620 
10 1640 

PK 1660 
KC 1680 

Cl 1700 


DC 1720 


IF PEEK ( 764 ) =58 THEN POKE 764 ,255:COLO 
R F5:PLOT X,Y:DRAWTO LPX,LPY:DRP=0:C*= 
I" : SD = B0 : GOSUB 640 : T I M = 0 : GOTO 


DRHWTO 


720 

IF PEEK(764)=12 THEN POKE 764,255:G0T0 
3460 

POKE 764,255:TIM=0:GOTO 720 

IF PEEK(764)=62 THEN POKE 764,255:SD=6 

0:GOSUB 640:RETURN 

IF PEEK(764)=12 AND K=2 THEN POKE 764, 
255:GOTO 3460 

POKE 764,255:TIM=0:GOTO 720 
K=1:7 CHR$<125>:7 "£UP>POSITI ON CURSOR 

TO UPPER LEFT CORNER OF PICTURE TO BE 
SAVED.THEN PRESS ■SB":GOSUB 720 


M=X:N=Y:SD=45:GOSUB 640 

? CHR$(125) : 7 "£UP>POS ITI ON CURSOR TO 

LOWER RIGHT CORNER OF PICTURE TO BE SA 

VED . THEN PRESS : GOSUB 720 

P=X:Q=Y:SD=25:GOSUB 640:S=0:K=0:A*="" 

IF P< M OR Q< N THEN 1280 

IF (P-M)*(Q-N)>3299 THEN 3060 

? CHR$ (125) : ? "£8 SPACES! I WJ. 

ISHHI^EXS" : GOSUB 560 

GRAPHICS 0:? CHR$(125):POKE 84,10:POKE 
85,6:7 

7 :POKE 85,6:7 "PICTURES SAVED " ; 
Rl=1480:TE=1:R=0:R2=0:GOTO 2380 


TE=0:R=0 

7 :POKE 85,6:7 "ENTER PICTURE NUMBER " 
;:TRAP 1520:INPUT SR:TRAP 40000:GOTO 1 
540 


7 "£ 3 UP!":GOTO 1500 

SM=1:Rl=1560:TE=1:SS=0:GOTO 2660 

T=T1:U=U1:TE=0:SM=0:SS=0 

POKE 82,2:SR1=100:SR2=(SR*100)+10000:S 
R3=LEN(A4):SR4=0:SS=0:SR5=SR1—99:SR6=0 
GRAPHICS 0:7 CHR$(125):POSITION 2,5 
7 SR2+SR4;" REM":SR7=SR2+SR4:SR4=SR4+1 
7 SR2+SR4;" IF TE=1 THEN RETURN":SR4=S 
R4+ 1 

IF SR3 >100 THEN 1700 

7 SR2+SR4;" A$=";CHR$(34);A*;CHR$(34): 

SS=1:SR4=SR4+1:GOTO 1720 

7 SR2+SR4;" A$(";SR5CHR$(34);A$( 
SR5,SR 1) ;CHR$(34) :SR1=SR1+95:SR4=SR4+1 
:SR5=SR1-94:SR6=SR6+1 

IF SS=1 THEN 7 SR7;" T=";T;":U=";U;":B 
1 = " ; B; ":SU=";SR4; ":SO=";SR:7 SR2 + SR4; " 
RETURN":GOTO 1800 


87 



Chapter 3 


FK 1740 
EA 1760 
EE 1780 
HD 1800 

FA 1820 
CJ 1840 
DK 1860 
FP 1880 

NB 1900 
LE 1920 

FE 1940 
AH 1960 
OD 1980 


NO 2000 
KE 2020 
LG 2040 
GO 2060 

OP 2080 


JI 2100 
DH 2120 

FN 21 40 
OB 2160 
NB 21 80 
OF 2200 
m 2220 
FC 2240 

FA 2260 
PG 2280 
NE 2300 
AH 2320 

NK 2340 
IN 2360 
El 2380 

AC 2400 
IE 2420 
BL 2440 


IF SR 6 >3 THEN SR 6 = 0:GOTO 1800 
IF SR3 >SR1 THEN 1700 
SR1=SR3:SS=1:GOTO 1700 

POSITION 0 ,0:POKE 842, 13:POSITI ON 2,22 
:? "CONT" 

POSITION 2,2:STOP 
POKE 842,12 

? CHR*<125):POSITION 2,5 
IF SS=1 THEN A $ = ""■TRAP 3100:GRAPH ICS 
B:TRAP 40000:POKE 82,0:GOTO 3460 
GOTO 1760 

? CHRt (125) : ? "{UP }{6 S P A C E S } ■3IHMIMSJ 
I* ill :1 HUS! " 

? "PICTURES AVAILABLE ARE " ; 

Rl=1980:TE=1:R=0:R2=0:GOTO 2380 

TE=0:R=0:? :? "ENTER PICTURE NUMBER "; 

:TRAP 2000:INPUT SR:TRAP 40000:GOTO 20 
20 

? "C3 UP>":GOTO 1980 
SR 1=(SR * 100)+10000 
TRAP 2200:GOSUB SR1:TRAP 40000 
IF SET =1 THEN B = B1: X = 0: Y = 0:TRAP 3100:G 
RAPHICS B:TRAP 40000:GOTO 2100 
K=2:? CHR$(125):? "CUP1USE CURSOR TO P 
OS ITI ON LOCATION OF PICTURE.THEN PRESS 
■!■":GOSUB 720:K=0 
S=1:FOR W=Y TO Y+U:POSITION X,W 
TRAP 3460:? #6; Pit (S, S + T-l ) : S = S + T : TRAP 
40000 
NEXT W 

IF SET =1 THEN GOTO 2500 
GOTO 3460 

IF SET=1 THEN SET=0 
GOTO 3460 
? CHR$ ( 125) : ? " 

? "PICTURES AVAILABLE ARE " ; 

Rl=2300:TE=1:R=0:R2=0:GOTO 2380 
TE=0:R=0 

? :? "ENTER PICTURE # ";:TRAP 2340:INP 

UT SR:TRAP 40000:GOTO 2360 
? "f3 UP}":GOTO 2320 
SET=1:R2=0:GOTO 2440 

TRAP 2400:GOSUB 10000+(R* 100):TRAP 400 
00:? SO;",";:R=R+1:R2=0:GOTO 2380 
IF R2C15 THEN R2=R2+1:R=R+1:GOT0 2380 
GOTO R1 

TRAP 2460:GOSUB 10000+(SR* 100) : TRAP 40 
000:R2=0:GOTO 2020 
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a 2460 

6H 2480 
KD 2500 


ID 2520 


OH 2540 


QJ 2560 
PF 2580 


OP 2600 
CA 2620 

NA 2640 
Kl 2660 
HP 2680 
CA 2700 

MO 2720 
JK 2740 
OH 2760 
NJ 2780 
ME 2800 

FB 2820 
CK 2840 
DL 2860 
BF 2880 

FC 2900 
MG 2920 

FD 2940 
LF 2960 

PI 2980 

HO 3000 

JN 3020 


IF R2<15 THEN R2=R2+1:SR=SR+1:GOTO 244 
0 

SET = 0:GOTO 3460 

SR=SR+1:A $ = "":SD=50:GOSUB 640:SD=75:G8 
SUB 2520:GOSUB 640:FOR DELAY=1 TO 400: 
NEXT DELAY:TRAP 3100:GRAPH ICS B:TRAP 4 
0000:GOTO 2440 

? CHR* < 1 25 ) : ? "{UP>{7 SPACESIKaMBiEE 

; B : ? "C7 SPACES > 
I»*d»I:3^Tlll=l.ld:lgXM = " ; SO: RETURN 
? CHR$ ( 1 25 ) : ? "CUPJC9 SP ACE S > KIM d a 

E-mniEa " : SD=40: nnsim 640: SD = 80: GOS 
UB 640:SD=160:GOSUB 640 

? "PICTURES AVAILABLE ”;:R1=2580:R=0:R 

2=0:TE=1:GOTO 2380 

R = 0: TE = 0: ? :? "PICTURE # TO 

££31" : ? " (KB FOR ALL) (FOR MENU) " ; 

:INPUT SR$:IF SR$="A" THEN SR=0:GOTO 2 
980 

IF SR$="R" THEN 3460 

TRAP 2640:SR=VAL(SR$>:TRAP 40000:SM=0: 
SS=0:GOTO 2660 
GOTO 2540 

SR1=10000+(SR*100):SR2=0:SR3=0 
TRAP R1:GOSUB SR1:TRAP 40000 
GRAPHICS 0:7 CHR$(125):POKE B2,2:P0SIT 
ION 2,5 

IF S R 2 >15 THEN 2800 

IF SR3 >SU THEN SS=l:GOTO 2800 

? SR1+SR3 

SR2=SR2+1:SR3=SR3+1:GOTO 2720 
POSITION 0,0:POKE 842, 13:POS ITION 2,22 
:? "CONT" 

POSITION 2,2:STOP 
POKE 842,12 

? CHR*(125):POSITION 2,5 

IF SS=1 AND SM=1 THEN GOSUB 2960:GOTO 

1560 

IF SS=1 AND SN=1 THEN 2980 
IF SS=1 THEN GOSUB 2960:TRAP 3100:GRAP 
HICS B:TRAP 40000:POKE 82,0:GOTO 3460 
SR2=0:GOTO 2740 

R2=0:SR2=0:SR3=0:SS=0:SM=0:SN=0:RETURN 

R2=0:SR2=0:SR3=0:SS=0:IF SN=1 THEN SR= 
SR+ 1 

SR1=(SR*100)+10000:SN=1:TRAP 3020:GOSU 
B SR 1:TRAP 40000:R2 = 0:GOTO 2700 
IF R2C15 THEN R2=R2+1:SR=SR+1:GOTO 300 
0 
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00 3040 

m 3060 

BD 3080 


NK 3100 
BO 3120 


CP 3140 


OL 3160 
FI 3180 


HG 3200 


BN 3220 
EF 3240 
LA 3260 


NO 3280 

EP 3300 
HN 3320 
NL 3340 

BD 3360 

HB 3380 

PE 3400 
LO 3420 
DJ 3440 

DG 3460 
IC 3480 
PC 3500 
CF 3520 


JG 3540 


LC 3560 
BN 3580 


eOSUB 2960:POKE 82,0:TRAP 
S B:TRAP 40000:GOTO 3460 
REM 

POKE 752,1:? CHR*<125>:? 


3100:GRAPHIC 


rup> 


*** IMS 


UFFTCTFMT RAM TO 5RUE PICTURE ■** 


GOT 


a 3140 

IF FM =1 THEN B=B-l:BOTO 3400 

POKE 752, 1:? CHR*(125):? 11 {UPIMBBEB 

B=B-1:FM=1 

FOR DELAY=0 TO 150:? "U4 SP ACES > T I MED U 
T = C 3 LEFT!150-DELAY;"CUP!":NEXT DE 
LAY 


A $ = " '• ; GOTO 3320 

CLOSE # 1:OPEN #1,4,0, "K: 7 CHR$(125>: 

CLR :D I M C*(12> ,D$(25) ,B* ( 1) 

"":POKE 752,1:POKE 82,0:POKE 83,39 
DIM R*(168),T$(40):T*=" ":T$(40)=Tt:Tt 

(2)=T$:R*=" ":R$(16B)=R$:R$(2)=R*:F5=1 

:K=0:DIM SR$(2) 

DIM A$ ( 3300) 

B=7:GOSUB 6380:GOTO 3320 

? CHR$ ( 1 25 ) : ? "CUP>{9 SPACES > ■SHHlSSK? 

: ? "112 SPACES! CHDOBE 3 T 

HRU 8" 

? :GET #1,A:IF CHR$(A)<"3" OR CHR$(A)> 
"8" THEN 3260 
B$=CHR$(A>:B=VAL(B$) 

IF B=3 THEN GRPX=39:GRPY=19:BJ=5 

IF B = 4 OR B = 5 THEN GRPX = 79:GRPY = 39:BJ = 

5 

IF B=6 OR B=7 THEN GRPX=159:GRPY=79:BJ 

= 4 

IF B = 8 THEN GRP X=319:GRPY=159:GOSUB 53 
20:BJ=4 


TRAP 3100:GRAPHICS B:TRAP 40000 
POKE 82,0 

FM=0:IF B=8 THEN POKE 710,156:POKE 712 
,156:POKE 709,0 
REM **** MENU **** 

SD=200:GOSUB 640:SD=250:GOSUB 640 
POKE 752,1 

? CHR*<125):? "CUP} K3H= CIRCLE 

<3 SPACES! HMI= ELLIPSE B9= LINE":? 
=COMMENTS "; 

? "ra=GR. MODE U =PICT MENU":? " ■HTM =r3 
U I T < 5 SPACES> K^.H.l:a ='' ; F5; "13 SPACES > B 
" ; B 

REM 

C$="":POKE 752,1 
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NO 3600 

HA 3620 

NA 3640 
LD 3660 
HC 3680 
OD 3700 

PG 3720 
PK 3740 
PO 3760 
AC 3780 
LO 3800 
ND 3820 
OD 3840 

BL 3860 


HD 3880 
LG 3900 
LA 3920 
HA 3940 
HD 3960 
NH 3980 
LE 4120 


JK 4140 
CL 4 1 6 0 

AG 4 180 


FG 4200 


PC 4220 


DC 4240 
KJ 4260 


HO 4280 
JC 4300 
JS 4320 


GET # 1 , A: IF CHR$(A>="C" THEN D*=''iaSE 


: GOTO 

4120 





IF CHR$(A) 

= II II 

THEN 

E = 1 : D$=" Man S-IC" 

:GOTO 4120 






IF CHR$(A) 

= " L " 

THEN 

D$=" " 

: K = 0 : 

GOTO 700 

IF C HR $(A) 

= " G " 

THEN 

3260 



IF CHR*(A) 

= II p II 

THEN 

3840 



IF CHR$(A) 

= " 0 " 

THEN 

SAVE 

"D:GRAPLUS":G 

RAPHICS 0: 

CLR : 

END 




IF CHR$(A) 

= " 0 " 

THEN 

F5 = 0: 

GOTO 

3460 

IF CHR$(A) 

= II ^ II 

THEN 

F 5 = 1 : 

GOTO 

3460 

IF CHR$(A) 

_ ii 2 " 

THEN 

F5 = 2 : 

GOTO 

3460 

IF CHR$(A) 

= " 3 " 

THEN 

F5 = 3: 

GOTO 

3460 

IF CHR$(A ) 

= " K " 

THEN 

5980 



GOTO 3460 






? CHR$ ( 125):? " 

CUP! C 6 SPACES!* 




ee*t 




? " -C 6 SPACES 

*=SAVEC3 SPACES 

1 L 0 A 

D E 5 SPACES1*th= 

VIEW" 

: ? " {. 

6 SPACES1**= 

ERASE ■ 

i=RETURN TO 

MENU 

" : GET 

#1 , A 

IF CHR$(A) 

= " S " 

THEN 

1280 



IF CHR$ ( A > 

_ II ^ II 

THEN 

1920 



IF CHR$(A) 

_ II £ II 

THEN 

2540 



IF CHR$ (A) 

= " v " 

THEN 

2240 



IF CHR$ ( A ) 

= " R " 

THEN 

3460 




GOTO 3840 

K=2:? CHR$(125):? "{UP!USE CURSOR TO P 
LACE X Y COORDINATES":? "PRESS TO 

SET POSITION ■3amHDI=MENU" : GOSUB 720: 
K = 0 

GOSUB 4980:IF E=1 THEN 4580 
TRAP 4160:GOSUB 680:7 "RAD IUS="; : I NPUT 

R:TRAP 40000:GOSUB 5180 
TRAP 4180:AQ=11:GOSUB 660:? "tUP!STEP= 
INPUT STP:TRAP 40000:IF STP=0 THEN 
STP= 1 

TRAP 4200:? "DEGREES START={4 SPACES! 
<4 LEFT!";:INPUT ST:TRAP 40000:GOSUB 5 
220 

TRAP 4220:AQ=18:GOSUB 660:? "CUPJDEGRE 

ES S TOP={4 SPACES > C4 LEFT! " ; : INPUT SP: 
TRAP 40000:GOSUB 5220 

GOSUB 680:? " ■•!:»HLB " ; R; " BBS" ; STP 

; "C 8 SPACES!CORRECT" 

(Y OR N)":GET #1,A:IF CHR$<A)="Y" THEN 
4300 

GOTO 4120 

FL=0:FOR N=ST TO SP STEP STP 
SOUND 0,0,0,0 
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BC 4340 

FP 4360 
FD 4380 
ED 4400 

FB 4420 
FA 4440 

BP 4460 
FJ 4480 
IB 4500 
NL 4520 
JK 4540 
NF 4560 
JK 4580 

AK 4600 

AH 4620 


GG 4640 


AD 4660 


DJ 4680 

JD 4700 

KG 4720 
LG 4740 
NH 4760 
KD 4780 
JH 4800 
JL 4820 
JA 4840 

CB 4860 
GB 4880 
IF 4900 
NP 4920 
DH 4940 

NJ 4960 
LE 4980 
KI 5000 
BA 5020 

92 


X1=X-R*C0S(N/180*3.1416):Y1=Y+R*SIN(N/ 
180*3.1416):COLOR F5 
SOUND 0, 100, 10, 12 
IF X1<0 THEN X1=0+ABS (XI) 

IF X1 >GRP X THEN X1=GRPX-ABS ( X 1 ) : I F Xl< 
0 THEN X1=GRPX-ABS<X 1 ) 

IF Y1< 0 THEN Y1=0 +ABS(Y 1 ) 

IF Y1 >GRPY THEN Y1=GRPY-ABS ( Y1) : IF Yl< 
0 THEN Y1=GRPY-ABS ( Y1 ) 

IF E=1 THEN RETURN 
IF FL=1 THEN 4520 
PLOT X1,Y1:FL=1 
DRAWTO XI,Y1 

NEXT N:SOUND 0,0,0,0:FL=0 
GOTO 3460 

GOSUB 680:TRAP 4580:7 "LENGTH=";:INPUT 
C:TRAP 40000 

TRAP 4600:AQ=12:GOSUB 660:7 "CUPIHEIGH 
T=";:INPUT D:TRAP 40000 

TRAP 4620:AQ=23:GOSUB 660:7 "EUP>STEP= 
INPUT STP:TRAP 40000:IF STP=0 THEN 
S T P = 1 

TRAP 4640:7 "DEGREES START={4 SPACES J 
{4 LEFT!INPUT ST:TRAP 40000:GOSUB 5 
220 

TRAP 4660:AQ=19:GOSUB 660:7 " IUP3-DEGRE 
ES STOP= C4 SPACES!T4 LEFT> " ; : INPUT SP: 
TRAP 40000:GOSUB 5220 

GOSUB 680:7 " ■SSDZQie" ; C ; " ; D 

; " ; STP; "CORRECT" 

? ; ST; " ; SP ; " 

(Y OR N) " 

GET #1,A:IF CHR<£ < A ) = " Y " THEN 4780 
IF C H R $ (A)="N" THEN 4120 
GOTO 4680 
DEG 

FL=0:FOR N=ST TO SP STEP STP 
SOUND 0,0,0,0 

X1 = X-( (C/2) *COS(N ) ) :Y1=Y— ( <D/2)*SIN(N) 

) 

GOSUB 43B0 
IF FL=1 THEN 4920 
PLOT X1,Y1:FL=1 
DRAWTO XI,Y1 

SOUND 0,80,10,10:NEXT N:SOUND 0,0,0,0: 
E = 0:FL = 0:RAD 
GOTO 3460 

IF X = GRP X THEN X = X-1 
IF Y=GRPY THEN Y=Y-1 
IF X = 0 THEN X = 1 
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BE 5040 
LF 5060 

LB 5080 
00 5100 


OH 5120 
CA 5 1 4 0 


HP 5160 
OJ 51 8 0 
KH 5200 
KD 5220 

IJ 5240 

IN 5260 

HD 5280 

KI 5300 
EK 5320 
NH 5340 
OH 5360 

EE 5380 
KJ 5400 
IE 5420 
00 5440 
OF 5460 
FD 5480 
EL 5500 
BK 5520 
CH 5540 
OH 5560 
OF 5580 
CD 5600 
00 5620 
OB 5640 
HF 5660 
HB 5680 
HA 5700 
IP 5720 
OK 5740 
HN 5760 
JF 5780 
DA 5800 


IF Y=0 THEN Y=1 

COLOR F5:PLOT X-l,Y:DRAWTO X+l,Y:PLOT 

X,Y—1:DRAWTO X,Y+1 

REM 

FOR S=1 TO 29:? "{RIGHT}";:NEXT S:? " 
{UP} »rfi1:3r3 : FOR S=1 TO 29:? " 

{RIGHT} " ; : NEXT S:? " rKTH " : GET #1, 

A 

IF CHR$(A)="Y" THEN COLOR F5:RETURN 

IF CHR$(A)="N" THEN COLOR 0:PLOT X-1,Y 

:DRAWTO X+l,Y:PLOT X,Y-l:DRAWTO X,Y+1: 

POP :COLOR F5:GOTO 4120 

? "{2 UP> M :GOTO 4980 

IF R >GRPY-1 THEN POP :GOTO 4160 

RETURN 

IF S T< 0 OR S T >36 0 AND D $ = " ■FAiSrTg TH 

EN POP :? "{UP}";:GOTO 4200 

IF ST< 0 OR ST >360 AND D % = " " T 

HEN POP :? "{UP}";:GOTO 4640 

IF SP<0 OR SP >360 AND D$ = TH 

EN POP :GOTO 4220 

IF SP<0 OR SP >360 AND T 

HEN POP :GOTO 4660 

RETURN 

IF B2=1 THEN RETURN 
RESTORE 5420:B2=1 

FOR 1 = 1 TO 168:READ A:R$ ( I , I)=CHR$(A) : 
SOUND 0,A,10,6:NEXT I:SOUND 0,0,0,0 
ML=ADR(R$) 

RETURN 


DATA 

1 

04 

,20 

1 

, 4 

,2 

40, 

9 

, 1 

70 


DATA 

240 

,5, 

1 

04 

, 1 

04, 

202 

, 

208 


DATA 

251 

,96 

, 

104, 

133 

9 

2 1 

5 

, 10 

4 

DATA 

1 

33 

,21 

4 

, 1 

04 

, 104 

, 1 

6 

B, 1 

04 

DATA 

1 

33 

,21 

7 

, 1 

04 

, 1 33 

,2 

1 

6, 1 

04 

DATA 

1 

04 

, 240 

, 2 

36 

, 1 33 

, 2 

1 

2,2 

4 

DATA 

1 

65 

,21 

4 

, 1 

01 

, 88 

9 

1 33 

,21 

4 

DATA 

1 

65 

, 89 

9 

10 

1, 

215 

9 

1 33 

,21 

5 

DATA 

1 

52 

, 240 

, 1 

5, 

1 65 

9 

2 1 

4 

, 10 

5 

DATA 

64, 

133 

, 

2 1 

4, 

165 

9 

21 

5 

, 10 

5 

DATA 

1 

, 1 

33, 

2 

1 5 

, 1 

36 , 

2 

08 

9 

24 1 


DATA 

1 

32 

,22 

1 

, 1 

60 

,0, 

1 

32 

9 

220 


DATA 

1 

77 

,21 

6 

, 1 

60 

,0, 

1 

70 

9 

1 6 


DATA 

1 

, 1 

36, 

1 

32 

,2 

13, 

1 

38 

9 

41 


DATA 

9 

6, 

208 

, 

4, 

169,64 

, 1 

6 



DATA 

1 

4, 

201 

, 

32 

, 208, 

4 

, 1 

69 


DATA 

0 

, 1 

6, 6 

, 

20 

1 , 

64, 

208 




DATA 

2 

, 1 

69, 

3 

2, 

1 3 

3,2 

1 

B, 

1 

38 


DATA 

4 

1 , 

31 , 

5 

,2 

18 

, 13 

3 

, 2 

1 

8 


DATA 

1 

69 

, 0, 

1 

62 

~r 

9 

,6, 

2 

1 8 
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CE 5820 
PL 5840 
DC 5860 
FD 5880 
Cl 5900 
LI 5920 
AD 5940 
AP 5960 
DA 5980 


DB 6000 
IC 6020 
KK 6040 
KP 6060 
LP 6080 
NS 6100 
LO 6120 

HH 6 140 
GH 6 160 

LH 6180 
CN 6200 


BC 6220 
BO 6240 

HG 6260 
OJ 6280 
BL 6300 
EK 6320 
GJ 6340 

HH 6360 
GE 6380 


KJ 6400 
BE 6420 
DK 6440 
FE 6460 
NF 6480 
HD 6500 
HO 6520 
HI 6540 
IH 6560 
OH 6580 


DATA 42,202,208,250,109,244 
DATA 2,133,219,164,221,177 
DATA 218,69,213,164,220,145 
DATA 214,200,132,220,196,212 
DATA 208,182,24,165,214,105 
DATA 40,133,214,144,2,230 
DATA 215,230,221,169,8,197 
DATA 221,208,159,96,207,96 

? CHR$ (125):? " C UP > > ] JiT i' 

i aH S M C f " ; ? "K3i=ENTER HEB= DELETE ■3B=RE 
TURN TO MENU ■* : GET #1,A 
IF B=8 THEN K=l:GOTO 6040 
K = 2 


THEN 5980 


ECT5B5M " : I N 


IF CHR$(A)="E" THEN 6120 
IF CHR$(A)= " D " THEN 6160 
IF CHR$(A)="R" THEN 3460 
GOTO 5980 
? "CUPJI 
PUT T$:IF T*=' 

GOTO 6200 
? "CUPJj 
INPUT T$:IF T$="" THEN 5980 
FOR 1=1 TO LEN(T$):T*(I,I)=" ":NEXT I 

? CHR$ (125) :? "CUPJUSE ARROWS TO POS C 
URSOR":? "PRESS S TO ENTER OR DELETE C 
OMMENT" 


IF K = 2 THEN 6280 

GOSUB 720:COL=INT(X/8):R0W=INT(Y/8):U= 
USR(ML,COL,ROW,ADR(T$) ,LEN ( T$) ) 

K=0:GOTO 3460 
GOSUB 720 

IF B = 7 THEN COL=I NT(X/8) :ROW = Y 

IF B = 5 THEN COL=I NT(X/16) :ROW = Y 

FOR 1 = 1 TO LEN (T$) :R = ASC (T$( I , I) ) :V = US 

R(1536,R,F,COL+I,ROW):NEXT I 

K=0:GOTO 3460 

RESTORE 6400:MIL=1536:FOR 1=0 TO 252:R 
EAD A:POKE MIL+I,A:SOUND 0,A,10,6:POKE 
708,A:NEXT I:SOUND 0,0,0,0:RETURN 
DATA 104,240,10,201,4,240 
DATA 11,170,104,104,202,208 
DATA 251,169,253,76,164,246 
DATA 104,133,195,104,201,128 
DATA 144,4,41,127,198,195 
DATA 170,141,250,6,224,96 
DATA 176,15,169,64,224,32 
DATA 144,2,169,224,24,109 
DATA 250,6,141,250,6,104 
DATA 104,141,251,6,104,104 
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FI 6600 

DATA 

OL 6620 

DATA 

AK 6640 

DATA 

GD 6660 

DATA 

GC 6680 

DATA 

DG 6700 

DATA 

PJ 6720 

DATA 

GJ 6740 

DATA 

OH 6760 

DATA 

BP 6780 

DATA 

EJ 6800 

DATA 

PB 6820 

DATA 

AN 6840 

DATA 

HJ 6860 

DATA 

PC 6880 

DATA 

IN 6900 

DATA 

PK 6920 

DATA 

AL 6940 

DATA 

GH 6960 

DATA 

JL 6980 

DATA 

CE 7000 

DATA 

JL 7020 

DATA 

OB 7040 

DATA 

PA 7060 

DATA 

FB 7080 

DATA 

BP 7100 

DATA 

OC 7120 

DATA 

NN 7140 

DATA 

JB 7160 

DATA 

JA 7180 

DATA 

EH 7200 

DATA 

FH 7220 

DATA 

FB 7240 

DATA 


141.252.6.14.252.6 
104, 104, 141,253,6,133 

186.166.87.169.10.224 

3.240.8.169.20.224 

5.240.2.169.40.133 

207.133.187.165.88.133 
203,165,89,133,204,32 

228.6.24.173.252.6 
101,203,133,203,144,2 

230.204.24.165.203.101 

212.133.203.165.204.101 

213.133.204.173.250.6 
133,187,169,8,133,186 

32.228.6.165.212.133 
205,173,244,2,101,213 
133,206,160,0,162,8 
169,0,133,208,133,209 

177.205.69.195.72.104 
10,72,144,8,24,173 

251.6.5.208.133.208 

224.1.240.8.6.208 
38,209,6,208,38,209 
202,208,228,104,152,72 
160,0,165,209,145,203 

200.165.208.145.203.104 
168,24,165,203,101,207 
133,203,144,2,230,204 
200,192,8,208,183,96 
169,0,133,212,162,8 

70.186.144.3.24.101 

187.106.102.212.202.208 
243,133,213,96,0,1 

28 


Program 2. Graphics Plus Demo 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

OH 60 GRAPHICS 0 

#F70 ? "ENTER X COORDINATE " ; : INPUT X 
fll 80 ? "ENTER Y COORDINATE INPUT Y 

HF 90 GRAPHICS 5: REM ** TRY OTHER GR.MODES ** 

U1 100 DIM A$ < 300) : REM ** DIM A* TO THE AMOUNT 
YOUR PICTURE USES ** 

PH 110 S= 1 : GOSUB 10300:REM ** USE THE LINE NUM 

BER FOR YOUR PICTURE HERE ** 

OD 120 FOR W = Y TO Y + U 
OE 130 POSITION X , W 
HN 140 ? #6; A* (S, S + T-l ) 
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PI 150 S = S + T 
CN 160 NEXT W 
GP 1 70 END 

FF 10300 T=17: U=16: Bl=5: SU = 5: SQ = 3: REM ** B 1 =GR 
.MODE SU = # OF LINES USED FOR PICTURE 
SQ=PICTURE NUMBER ** 

BA 10301 IF TE=1 THEN RETURN :REM ** THIS LINE 
CAN BE DELETED ** 

HI1 10302 A $ ( 1 ) = “ DDDDDAAAAAAADDDDDDDDAAADDDDDAA 
ADDDDDAADDBBBBBDDAADDDAADBBDDDDDBBDAA 
DDADBBDCCCCCDBBDADAADBDCCDDDCCDBD" 

III 10303 A* ( 101 ) = " AAADBDCCDBBBDCCDBDAADBDCDBBD 
BBDCDBDAADBDCDBDDDBDCDBDAADBDCDBBDBBD 
CDBDAADBDCCDBBBDCCDBDAAADBDCCD" 

FJ 10304 A* ( 196) ="DDCCDBDAADADBBDCCCCCDBBDADDA 
ADBBDDDDDBBDAADDDAADDBBBBBDDAADDDDDAA 
ADDDDDAAADDDDDDDDAAAAAAADDDDD" 

NJ 10305 RETURN 
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Turtle Graphics in 
Atari BASIC 

Prabhudeva Kavi 


By adding just a short subroutine to your BASIC programs, you 
can simulate some turtle graphics commands. 


Here is a BASIC subroutine (modified from Charles Brannon's 
"Turtle Pilot for the Atari," COMPUTE!, October 1982) that al¬ 
lows you to add turtle graphics to Atari BASIC. Turtle graph¬ 
ics will not affect the BASIC graphics statements in any way, 
and both turtle and BASIC graphics statements can be used at 
the same time. 

Here are descriptions of how to use turtle graphics. 


Turn the turtle: 

TURN = X:GOSUB 31010 


Turnto: 

TURTA = 90-X 


Draw: 

LINEL = X: GOSUB 31020 


Move the turtle: 

LINEL = X: GOSUB 31060 
Move to: 

TURTX = X:TURTY = Y 


Turns the turtle clockwise X degrees if X 
is positive, and counterclockwise X de¬ 
grees if X is negative. 

Changes the angle of the turtle to the 
value of X. North is 0 degrees; south is 
180 degrees; east and west are 90 and 
270 degrees respectively. 

Moves turtle X units in the direction it is 
facing; leaves a trail. 

Like Draw, but doesn't leave a trail. 

Moves turtle to X,Y location without 
leaving a trail. The range of X co¬ 
ordinates is from — 79 to 80; for Y it is 
— 48 to 47. The origin is at the center of 
the screen. 


Programs 2 and 3 use the subroutines in Program 1. Type 
in Program 1 and save it. Add each of the other programs to 
Program 1. 
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Program 1. Turtle Subroutine 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 


AH 

GM 

KD 


PH 


DA 

NJ 

KE 


0 PI=3.1415927/100:TURTA=90 

31000 REM TURTLE GRAPHICS SUBROUTINES 

31010 TURTA=TURTA-TURN:TURTA=TURTA-360*(TUR 
TA>360)+360*(TURTA<0):RETURN :REM TUR 
N TURTLE 

31020 TRAP 31030:PLOT TURTX+79,4B-TURTV:REM 
LAST TURTLE LOCATION 

31030 TURTX=TURTX+LINEL*COS<TURTA*PI>:TURTY 
= TURTY + LINEL*SIN <TURTA*PI) :REM FIGURE 
NEW COORDINATES 

31040 TRAP 31050:DRAWTO TURTX+79,48-TURTY:T 
RAP 40000:REM DRAW IT 

31050 RETURN 

31060 TURTX=TURTX+LINEL*COS(TURTA*PI):TURTY 
=TURTY+LINEL*SIN(TURTA*PI):RETURN :RE 
M MOVE WITHOUT DRAWING 


Program 2. Spiral 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

DE 2 0 GRAPHICS 8+ 1 6 : SETCOLOR 2,0,0:COLOR 1 : TUR 

TX = 80:TURTY = —48 

LI 30 FOR 1 = 1 TO 140: LINEL=I : GOSUB 31020:TURN = 
91 :GOSUB 31010:NEXT I 
AB 40 GOTO 40 


Program 3. Snowflake 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

Cl 20 GRAPHICS 7+16: COLOR 1 : SETCOLOR 0,0,14 
BP 30 FOR 1 = 1 TO 18: TURN = 20: GOSUB 31010:FOR J = 
1 TO 5:LINEL=35:GOSUB 31020:TURN=144:GOS 
UB 31010:NEXT J:NEXT I 
AB 40 GOTO 40 
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Action Games 




Guardian 

Heath Lawrence 


Can you save the scientists from the invading aliens in this fast- 
action shooting game? Requires one joystick. 

The year is 1997. Alien starships have abducted most of 
Earth's key scientists for their own diabolical purposes. Those 
remaining have been taken to a powerful armed bunker for 
special protection. The base is shielded by an enormous de¬ 
fense field projected above the main compound. However, the 
aliens are not easily discouraged and launch deadly attacks 
against the force-field generators. Your mission as commander 
of the guardian bunker is to use the three ground-based tur¬ 
rets to destroy the incoming energy thieves. The fate of our 
scientists is in your hands. 

Playing the Game 

The enemy attack ships make continuous runs across the 
screen, getting lower with each complete pass. When they fi¬ 
nally make a successful run below your energy field, the 
protective shield will drop momentarily. This period of time is 
just long enough for the alien mothership to kidnap one of 
your scientists with its transport beam. 

The height of the force field is indicated by the two ar¬ 
rows at the sides of the playfield. When an enemy drone in¬ 
flicts a power loss, these arrows will point outward showing 
that the shield is down. After a scientist has been taken, a 
successor will run to take his place. Five points are given for 
each ship that is destroyed. Unfortunately, your force shield 
rises when certain scores are reached (depending on your skill 
level). This allows the aliens to reach the shield much faster. 

Your only weapons against the intruders are the three tur¬ 
rets that are stationed at the bottom of the screen. Each gun is 
fired by pushing the joystick to the side of the desired turret. 
Pushing the joystick forward will fire the center gun. The red 
trigger button is not used for firing. You can have only one 
shot on the screen at once, so all your shots should be very 
carefully timed. 
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Guardian 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

PD 1 T = 1 

LE5 GOSUB 245: IF T THEN GOSUB 350 

!A10 GOSUB 285 

FC 15 GOSUB 75 

HH 25 REM dTIi 

ND 3 0 IF FLAG2 THEN 60 

PC 4 0 S = STICK (0) : IF S=ll THEN DIR = —LN+1 : POS=SC 
R+LN#18+LN-36:FL AG =1:FLAG2=1:SHOT=70 
NC 45 IF S = 7 THEN D I R = -L N- 1 : POS = SCR + LN * 1 8 + LN-5 
:FLAG=1:FLAG2=1:SH0T=71 
KD 50 IF S= 1 4 THEN DIR = -LN:P0S = SCR + LN* 1B + LN/2: 
FLAG=1:FLAG2=1:SH0T=86 

HN 55 IF FLAG= 1 THEN FOR X = 1 TO 255 STEP 12:S0 
UND 1,X,10,8:NEXT X:SOUND 1,0,0,0 
FC 60 IF FLAG THEN GOSUB 130 

EN70 POSITION 2,1:7 "SCORE: VALUE: POSITION 1 

7,1:7 "HIHI:POSITION 28,1:7 "SAFE MEN 
: " ; GUYS 

PC 72 IF V ALUE = HVAL THEN H V AL = H V AL + I NC : GOS UB 2 
02 

JG 73 IF VALUE = BONUS THEN FOR X = 1 TO 100 STEP 
5:SOUND 1,X,10,8:NEXT X:GUYS=GUYS+1:VALU 
E=VALUE+10:BONUS=BONUS+100 
BC 74 SOUND 1,0,0,0:GOTO 15 

MF 80 POKE LOC, BLA: LOC=LOC+VEC: P1=PEEK (LOC) : IF 
P1=SHOT THEN 0=L0C:G0SUB 155:RETURN 
HA 85 IF P1 = BOU THEN N1=N1+2:LOC=SCR+LN*N1+LN- 
39 

IJ 95 POKE LOC , EN 1 : I F N 1 > ALT THEN POKE LOC,BLA 
:N1=4:L0C=SCR+LN*Nl+LN-39:GOSUB 210 
PM 100 POKE MOT,BLANK:MOT=MOT+ZON:P2=PEEK(MOT) 
:IF P2=SH0T THEN 0=M0T:G0SUB 155:RETURN 

HF 105 IF P2 = B0U THEN N2 = N 2 + 2 : M OT = SCR + L N * N2 +LN 
-2 

LC115 POKE MOT , EN2 : I F N2 >ALT THEN POKE MOT , BL 
A:N2=4:M0T=SCR+LN#N2+LN—2:GOSUB 210 
HD 120 RETURN 

ED 130 P3=PEEK (POS + DIR) : IF P3 = B0U THEN FL AG = 0: 

FLAG2=0:POKE POS,BLA:RETURN 
MH 135 IF P3 = EN2 THEN 0 = M0T:G0SUB 155:RETURN 
LA 140 IF P3 = EN 1 THEN 0 = L0C:G0SUB 155:RETURN 
PK 145 POKE POS, BLA: POS = POS + DIR: POKE POS, SHOT: 
RETURN 
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HP 150 REM gjlHH^aglMlii 

UN 155 POKE POS, BLA: POKE Q, EXP: FLAG=0: FLAG2 = 0: 
VflLUE=VALUE+5 

HF 160 FOR X = 1 TO 10:SOUND 1,50 , 1 0 , 1 5 : SOUND 1, 
0,0,0:NEXT X 
BB 1 6 1 POKE O, BLA 

AL 162 IF 0 = L0C THEN N1=4 : LOC = SCR+ LN*N1+LN-39: 
POKE LOC,EN1:RETURN 

HP 170 N2 = 4: MO T = SCR+ LN * N2 +LN-2 : POKE MOT , EN2 : RE 
TURN 

HN 175 REM 

CO 180 POKE SCR+LN*SH+1,SHIE1:POKE SCR+LN*SH+3 
8,SHIE2:RETURN 
HI 185 REM 

HI 190 FOR J = 1 TO 30 : SOUND 0,64-J , 1 0 , 1 0 : SOUND 
1,F+J,10,10:FOR K=1 TO 30-J:NEXT K:SOUN 
D 0,0,0,0:SOUND 1,0,0,0 
SO 192 FOR K= 1 TO 10:NEXT K: NEXT J:POSITION 15 
,10:7 "GAME OVERPOSITI ON 37,1:7 "0": I 
F VALUEOHI THEN HI=VALUE 
BN 195 GUYS = T1 : HVAL = T2: POSITION 7,11:7 "PRESS 
START TO PLAY AGAIN":IF PEEK(53279X>6 
THEN 195 
OH 200 GOTO 10 
HD 201 REM 

AG 202 POKE SCR + LN*SH+1 , BLA: POKE SCR+ LN * SH + 38 , 
BLA:ALT=ALT-2:SH=SH-2:IF SH<5 THEN SH = S 
H + 2:ALT = ALT + 2 
HJ 204 GOSUB 180: RETURN 
CH 205 REM !:+*>3:r:l JTTUSr:T;:r«IM>: 

F6210 POKE SCR+LN*SH+1 , SHIE2: POKE SCR+LN*SH+3 
8,SHIE1:F0R 1=1 TO 10:SOUND 1,100,10,8: 
SOUND 1,0,0,0:NEXT I 

KC215 FOR 1 = 1 TO 20:POKE SCR + LN-1 5+I * LN , BOU : S 
OUND 1,I,8,15:NEXT I:FOR 1=20 TO 1 STEP 
- 1 :POKE SCR + LN-15+I*LN,BLA 
AB 220 NEXT I:GUYS = GUYS-1: IF GUYS< 1 THEN GOTO 
1 90 

AC 225 SOUND 1,0,0,0:FOR 1=35 TO 26 STEP -l:PO 

SITION 1,20:7 "h":SOUND 1,90,10,15:FOR 
D=1 TO 10:NEXT D 

HC 230 POSITION 1,20:7 "i":SOUND 1,0,0,0:FOR D 
=1 TO 10:NEXT D:POSITION 1,20:7 " ":NEX 

T I:POSITION 25,20:7 "i" 

HN 235 GOSUB 180: RETURN 
IF 240 REM ! ->-J m.VA 

BH 245 POKE 1 06 , PEEK ( 1 06 )-5 : GRAPH I CS 0:POKE 75 
2,1: POS I T I ON 12,1:7 " CN> CF> C M > 

tM>CGJCN>":POSITION 9,3 
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HL 246 


KK 247 


KJ 248 


CG 252 


DI 253 

KG 280 
LN 285 

OK 290 


EG 295 


EP 300 
6B 305 


MI 31 5 


PE 320 


NJ 3 25 


JJ 345 
EM 350 

DF 370 

IN 385 
MH 390 
JB 395 
DD 400 
AN 405 
ND 4 1 0 
BL 4 1 5 
JN 420 
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? "BY >> HEATH LAWRENCE":FOR X=1 TO 10: 
SOUND 0,95,10,15:FOR K=1 TO 5:NEXT K:SO 
UND 0,0,0,0:FOR K=1 TO 5:NEXT K 
NEXT X : POSITION 1,6:? " 

: POSITION 1,8:? " j Ji* 
w:iuar:i:r«y?TaH ": sound 1 , 0 , 0,0 

POSITION 1,10:? " =i ■ r* <a wgji|3Wl« !LI - 

; : INPUT SKL:HVAL=SKL*10: INC=HVAL:G 
UYS=SKL+1 


T1=GUYS:T2=HVAL:FOR X=1 TO 10:SOUND 0,9 
5,10,15:F0R K=1 TO 5:NEXT K:SOUND 0,0,0 
,0:FOR K=1 TO 5:NEXT K :NEXT X 


POSITION 9,13:? " ZSXm ;M K3 M st i l $ <TTr»-»2 " : RF 

TURN 

REM 

GRAPHICS 0:POKE 756,ST/256:SETCOLOR 2,0 
,0:POKE 752, 1 

SCR=PEEK(88)+256*PEEK(89):ALT=16:SH=15: 
LN = 40:B0U=128:BR1 = 103:BLA = 0:EN1=101 :EN2 
=102:FL AG2 = 0:EXP=83:SH0T=86 
L0C=SCR+LN*4+LN-39:M0T=SCR+LN*4+LN-3:N1 
= 4:N2 = 4:VEC=1 : ZON = —1:SHIE1=30:SHIE2 = 28: 
VALUE=0:FLAG=0:BONUS=100 
REM GHEgM-IglSZ^lMBE 

POSITION 19,19:? "abID0WN>{3 LEFTIgggg" 
:POSITI ON 3,19:? "c{DOWNJCLEFTJg":POSIT 
ION 36,19:? "d{DDWN}(LEFT}g":POSITION 1 

0 , 10 :? 

FOR 1=0 TO LN—1:POKE SCR+I,BOU:NEXT I:F 
OR 1=0 TO LN-1:POKE SCR + LN*22+I , BOU:NEX 
T I 

FOR 1=0 TO 22:POKE SCR+I *LN,B0U: NEXT I: 
FOR 1=0 TO 2 2:POKE SCR+ LN-1 + I *LN,BOU:NE 
XT I 

FOR 1=1 TO LN—2:POKE SCR+LN*21+I,BR1:NE 
XT I:POSITI ON 25,20:? "i":GOSUB 175:RET 
URN 

Z=776:T=0:ST=(PEEK(106)+1)*256:FOR X=0 
TO 1023:POKE ST+X,PEEK(57344+X):NEXT X 
FOR N =1 TO 9:F 0 R X = 0 TO 7:READ A:POKE S 
T+Z+X,A:NEXT X:Z=Z+8:NEXT N:RETURN 
DATA 1,1,1,255,129,255,129,255 
DATA 128,128,128,255,129,255,129,255 
DATA 3,6,12,24,126,195,129,255 
DATA 192,96,48,28,126,195,129,255 
DATA 192,88,243,95,95,243,88,192 
DATA 60,100,207,26,26,207,100,60 
DATA 145,118,132,17,128,42,128,41 
DATA 24,219,126,60,24,24,60,102,24,24,2 
4,255,24,24,60,102 


Mt. Rock 

Steven M. Low 


Quick reflexes are what you need to save the city from being cov¬ 
ered by mud. Joystick required. 

There's been a lot of rain lately at Mt. Rock. Now the moun¬ 
tain is sliding into the city. Each mud rock that falls on the 
city means less time to evacuate the residents. More time is 
needed and your role is clear. Flying above the city in your 
copter, you must fire at each mud ball and turn it into dust 
and hope that the high winds will prevent it from falling on 
the city. 

Game Play 

The game requires a 30-second initialization. Push the joystick 
trigger or computer START key to begin. Overlapping waste 
masses are indestructible. A collision with a mud ball, the 
mountain, city, upper borders, or side borders returns the cop¬ 
ter to the landing pad. Points are accrued by turning a mud 
ball into dust (use the joystick button). The game ends when 
the city is completely buried. Restart the game by pressing the 
START key. Replay setup takes only five seconds. 

Be sure to save a copy of the program before you try to 
run it. 

Mt. Rock 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

GG 160 GOTO 510 
HN 170 REM 

OA 180 BURY=BURY+1:LINE=85-(BURY-1) 

NO 190 POKE 87,7: PLOT 53 , L I NE : DRAWTO 159,LINE 
JK 200 IF LINE069 THEN FALLEN = 0: RETURN 
01210 FOR 1=0 TO 3: SOUND I,0,0,0:NEXT I 
JI 220 GOTO 1910 
HJ 230 REM 

LI 240 JS = PEEK (632) : YX=YX+STX (JS) :YY = YY + STY(JS 
) : IF Y X >208 THEN YX = 20B:REM Calculates 
players moves 

KJ 250 X=USR (ADR ( POK$ ) ,PLX,YX,PLY,YY) 

KJ 260 IF PEEK ( 644 ) = 1 THEN GOTO 350 
NE 270 REM {DOWN} Player shoots CDOWN> 

BO 2B0 X = USR (ADR (POK$) ,PMBASE + 768 + YY + 4,3,PMBAS 
E+768+YY+5,3):FOR 1=6 TO 20 STEP 2:P0KE 
53252,YX-I:NEXT I 
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EK 29 0 X=USR(ADR(POK$) , PMBASE+768+YY+4,0, PMBAS 
E+768+YY+5,0) 

KF 300 REM {DOWN} Did you hit any nuke waste? 
IE310 POW = PEEK (53256) : IF P0W = 2 THEN WX = 55:WY = 
60:S = S+1:POKE 87,2:POSITI ON 17,1:? #6;S 

. II II 

9 

CO 320 IF P0W = 4 THEN W 2 X = 73 : W2 Y= 1 00 : S = S + 1 : POKE 
87,2:POSITION 17,1:? #6;S;" 

DP 330 IF POW = B THEN W3X = 90 : W3Y= 1 65 : S = S+ 1 : POKE 
87,2:POSITION 17,1:? #6;S;" " 

CA340 REM CDOWN> Calculate nuke moves {DOWN} 
(050 IF W X < 135 THEN W X = W X+ 4 : W Y = W Y+ 4 
HH 360 IF W X > 134 THEN WY = WY + 8:IF WY>209 THEN W 
X=55:WY=60:FALLEN=FALLEN+1 
AF 370 IF W2XC125 THEN W2 Y = W2 Y - 2 : W 2 X = W2 X+4 
BE 38 0 IF W2 X > 1 24 THEN W2Y=W2Y+6:W2X=W2X+3: IF 
W2Y >209 THEN W2X = 73:W2Y=100:FALLEN = FALL 
EN+1 

AK390 IF W3 X < 1 22 THEN W3 X = W3 X+ 2 : W3 Y = W3 Y-5 
61 400 IF W3X > 1 2 1 THEN W3X=W3X+1 : W3Y = W3Y + 4: IF 
W3Y >209 THEN W3X = 90:W3Y=165:FALLEN = FALL 
EN+1 

HK410 IF F ALLEN >= 1 THEN GOSUB 180 
16 420 REM {DOWN} Coll. Reg. keep plyr in 
{DOWN}{13 SPACES}bounds 
HD 430 IF PEEK (53260) < >0 THEN Y X = 1 6 4 : Y Y= 1 74 
HF440 IF PEEK (53252) < >0 THEN Y X = 1 6 4 : Y Y= 1 74 
NE 450 REM {DOWN} Actual ML moves players 
{DOWN} 

JA 460 X=USR (ADR (P OK $) ,PLX + l,WX,PLY + l,WY,PLX + 2 
,W2X,PLY+2,W2Y,PLX+3,W3X,PLY+3,W3Y) 

HP 470 SOUND 1 , WY, 2, 8: SOUND 2, W2Y , 2,8 : SOUND 3, 
W3Y,2,8 

BE 480 POKE 53278,0:REM HITCLR 

6FI 490 GOTO 240 

KB 500 REM INITIALIZATION 

FH510 RESTART = 0: DIM POK$ (25) , LEDR4 (2) , STX ( 15) 
,STY(15):GOSUB 1850:GOSUB 17B0:GOSUB 21 
70 

HL 520 REM 

LC 530 GRAPHICS 7+16 

06 540 SETCOLOR 0 , 1,9 : SETCOLOR 1,0,4 : SETCOLOR 
4,3,2:SETCOLOR 2,12,6 
EH 550 POKE 559,0: GOSUB 1310 
6L 560 REM BACKGROUND DRAWING 
DO 570 REM MOUNTAINS 

PH 580 COLOR 1 : PLOT 7,1:DRAWT0 7,4 
ED 590 COLOR 2:PL0T 0,5:DRAWTO 10,5:DRAWTO 10, 
12:COLOR 1 :PLOT 0,12:DRAWTO 15,12 
6D 600 DRAWTO 20,23:DRAWTO 22,23:DRAWT0 27,27 
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i 1610 COLOR 2:PLOT 0,27:DRAWTO 28,27:DRAWT0 2 
8,34 

IJ 620 COLOR 1 : PLOT 0,35:DRAWTO 32,35 

EL 630 DRAWTO 34,41:DRAWT0 36,46:DRAWT0 40,50: 

DRAWTO 43,58:DRAWTO 0,58 
NC 640 COLOR 2:PLOT 44,59:DRAWT0 44,67 
JK 650 COLOR 1 : PLOT 0,68:DRAWTO 52,68 
EB 660 DRAWTO 52,B5:DRAWT0 0,85 
IB 670 REM 

HI 680 COLOR 1 : PLOT 0,1:POKE 765 , 1 : POS I T I ON 0, 
4: X10 18,#6,0,0, "S: " 

PN 6 90 COLOR 2 : PLOT 0,5:POKE 7 6 5,2 : P OS I T I 0 N 0, 
11:X10 18,#6,0,0, "S: " 

CH 700 COLOR 1 : PLOT 0,12:POKE 765 , 1 : POS I T I ON 0 
, 26: X10 18,#6,0,0, " S : " 

CP 7 1 0 COLOR 2 : PLOT 0,27:POKE 765,2 : POS I T I ON 0 
,34:X10 18, #6,0,0, "S: " 

DK 720 COLOR 2:PL0T 0,58:POKE 765,2 : POS I T I ON 0 
, 67: X10 18, #6,0,0, "S: " 

DE 730 COLOR 1 : PLOT 0,35:POKE 765,1 : POS I T I ON 0 
, 58: XIO 18, #6,0,0, "S: " 

FB 740 PLOT 0,59: POKE 765 , 1 : POS I T I ON 0,85:XIO 
18,#6,0,0, "S: " 

OH 750 COLOR 2:DRAWT0 0,1:DRAWTO 159,1 
OP 760 REM This is the city 
IC 770 REM 

LP 780 COLOR 3: FOR X=60 TO 66 STEP 2:F0R Y = 75 
TO 85:PLOT X,Y:NEXT Y:NEXT X:REM Artifa 
cting color 

PN 790 COLOR 3: FOR X = 70 TO 74:F0R Y = 73 TO 85:P 
LOT X,Y:NEXT Y:NEXT X:COLOR 1:PL0T 71,7 
5:PLOT 72,80:PLOT 73,77 
KD 800 COLOR 1 : FOR X = 78 TO 84:F0R Y = 70 TO 85:P 
LOT X,Y:NEXT Y:NE X T X 

KL810 COLOR 0: PLOT 79,71:PL0T 80,80:PLOT 81,7 
5:PLOT 82,77:PLOT 83,73 
BH 820 COLOR 3:F0R X = 89 TO 95 STEP 2:F0R Y = 73 
TO 85:PLOT X,Y:NEXT Y:NE X T X 
BE 830 COLOR 1 : FOR X=90 TO 96 STEP 2: FOR Y = 73 
TO 85: PLOT X,Y:NEXT V': NEXT X 
IE 840 COLOR 2: FO R X=90 TO 96 STEP 2:F0R Y = 74 
TO 84 STEP 2:PLOT X,Y:NEXT Y:NEXT X 
PD 850 COLOR 3: FOR X = 100 TO 110:FOR Y = 80 TO 85 
:PLOT X,Y:NEXT Y:NEXT X 
JH 860 X = 1 : Y = 80 
BP 870 X = X + 1 : Y = Y- 1 

ON 880 PLOT 1 00 + X , Y: DRAWTO 110-X,Y:IF Y = 77 THE 
N GOTO 900 
HJ 890 GOTO 870 
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EC 900 COLOR 1 : PLOT 101,81:PLOT 103,84:PLOT 10 

3,82:PLOT 104,82:PLOT 106,84:FOR X=107 
TO 109:PLOT X,B4:NEXT X 
AK910 COLOR 2: FOR X = 105 TO 108:PLOT X,B1:NEXT 
X 

BK 920 COLOR 2:PL0T 1 1 5,85 : D R A W T 0 115,69:PL0T 

1 25,69:DRAWTO 125,85 
DF 930 COLOR 1 : PLOT 1 1 5,69 : DR A WTO 125,69 
DJ 940 PLOT 120,70: DRAWTO 120,85 
BN 950 COLOR 2:PL0T 1 1 5,85 : DR AWTO 125,69:PL0T 
1 25,85:DRAWTO 115,69 

AG 960 COLOR 3:F0R X = 127 TO 131:FDR Y = 75 TO 77 
:PLOT X,Y:NE X T Y:NE X T X 
DK 970 COLOR 2:PL0T 1 27,85 : DR A WTO 127,75 
BL 980 COLOR 1 : FOR X=12B TO 129:PL0T X,75:NEXT 
X 

HJ 990 COLOR 1 : FOR X = 135 TO 159 STEP 2:F0R Y = 8 
0 TO 85:PLOT X,Y:NEXT Y:NEXT X 
CD 1000 COLOR 0: PLOT 137,B1:PL0T 139,84:PL0T 1 

45,82:FOR X=150 TO 153:F0R Y=83 TO 85: 
PLOT X,Y:NEXT Y:NEXT X 
NF 1010 COLOR 1 : PLOT 136,83:PL0T 144,83 

DH 10 2 0 COLOR 2: FOR X = 146 TO 149:F0R Y = 77 TO 7 
9:PLOT X,Y:NEXT Y:NEXT X 
HJ 1030 PLOT 1 47,77: DRAWTO 159,73 
NN 1040 IF REST ART = 1 THEN 1060 
JB 1050 GOSUB 1 450 : GOSUB 1150 

BF 1060 POKE 559,62: POKE 53277,3:REM Enable P/ 
M Gr . 

JC 1070 POKE 87,2: POSITION 0,1:7 #6; "EC SHIH5" : 
POKE 87,2:POSITION 11,1:7 #6;"SCORE 
■C 4 SPACES}" 

GG 1080 FOR VOL = 15 TO 0 STEP -0.1:SOUND 0,10,1 
2,VOL:NE X T VOL:REM Ding! 

BB 1090 IF PEEK (53279) =6 THEN 240 
JH 1100 IF PEEK (644) =0 THEN 240 
NG 1110 GOTO 1090 
JL 1120 END 
KJ 1130 REM 

CK 1140 REM CUSTOMIZED CHARACTER SET 
EH 1150 CS = 256# ( PM —2 ) : POKE 756,CS/256 
EN 1160 FOR 1 = 128 TO 207-.POKE CS + I , P EE K ( 573 4 4 + 
I) :NE X T I:REM .£3 SPACESJROM NUMBER SE 
T 

HD 1170 RESTORE 1180:FOR 1 = 1 TO 10: READ NC:FOR 

J = 0 TO 7:READ CC:POKE CS+<<NC*8>+J),C 
C:NEXT J:NEXT I 

IN 118 0 DATA 45,130,198,238,254,254,238,238,23 
8 

011190 DATA 51,126,192,192,62,2,254,252,248 
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BG 1200 
CH 12 10 
HC 1220 

HP 1230 

GA 1240 
HI 1250 

JL 1260 

HC 1270 

KL 1280 
HK 1290 
AH 1300 
KH 13 10 
HH 1320 
KL 1330 
6E 1340 
OK 1350 


IH 1360 
BH 1370 


FK 1380 

KN 1390 
JH 1 400 
PH 1410 
NG 1450 

BJ 1460 

FG 1470 
BG 1480 

FB 1490 


IL 1500 
JA 1510 
HB 1520 


DATA 35,62,126,192,192,192,254,126,62 
DATA 47,124,124,230,230,230,230,126,62 
DATA 50,252,196,252,252,254,206,206,20 
6 

DATA 37,254,224,248,224,254,254,254,25 
4 

DATA 52,254,254,56,56,56,56,56,56 
DATA 46,198,230,246,254,222,206,206,20 
6 

DATA 53,198,198,198,198,254,254,254,12 

4 

DATA 43,198,204,216,240,248,222,222,22 
2 

RETURN 

REM ALTER DISPLAY LIST 
REM GR. 2 ABOVE GR. 7 
DL=PEEK(560)+PEEK(561)*256 
POKE DL+3,71 

SCR = PEEK (88) +256*PEEK(89) 

SCR=SCR—20 

REM Line 1370 re-aligns theI15 SPACES>G 
R. 7 screen to le-ft edgellS SPACESJof s 
creen by altering 

REM Display List.125 SPACESJEver see th 
is before ? 

X=USR(ADR(POKS),88,SCR):REM The 
17 SPACES}ML program handles HI byte L 
0W 1 8 SPACES!byte problem 

POKE DL+94,65:POKE DL+95,PEEK(560):POK 
E DL+96,PEEK(561) 

RETURN 

END 

REM INITIALIZE VBLANK PM 

IF PEEK(1696)=104 THEN RESTORE 1750:GO 
TO 1470 

RESTORE 1640:FOR 1=1536 TO 1706:READ A 
:POKE I,A:NEXT I 

FOR 1=1774 TO 1787:P0KE I,0:NEXT I 
PM = PEEK(106) —32:POKE 54279,PM:PMBASE = 2 

5 6 * PM 

FOR I=PMBASE+1023 TO PMBASE+2047:POKE 
I,0: NEXT I:FO R I=PMBASE + 768 TO PMBASE + 
1022:POKE I,0:NEXT I 

FOR 1=0 TO 7:READ A:POKE PMBASE+1025+I 
,A:NEXT I 

FOR 1=0 TO 7:READ fl:POKE PMBASE+1281+I 
,A:NEXT I 

RESTORE 1760:FOR 1=0 TO 7:READ A:POKE 
PMBASE+1537+I,A:NEXT I 
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H6 1530 
HG 15 40 
HL 1550 
FK 1560 

JH 1570 
HP 1580 
HF 1590 

CB 1600 
U 1610 
FO 1620 
GC 1630 
HH 1640 

DO 1650 

EK 16 6 0 

EL 1670 

PH 1680 

LE 1690 

ND 1700 

6K 1710 

OF 1720 

ON 17 30 
DA 1740 
HP 1750 
IG 1760 
KN 1 770 

(IB 1780 

HL 1790 


RESTORE 17 60:FOR 1=0 TO 7:READ A:POKE 
PMBASE+1793+I,A:NEXT I 

POKE 704,16*10+6:POKE 705,16*3+8:POKE 
706,16*2+10:POKE 707,16*14+6 
PLX=53248:PLY=1780:PLL=17B4:POKE 623,4 
:POKE 1788,PM+4:POKE 54279,PM 
X=USR(1696):REM > VBlank PM < 

E9 SPACESOThis only needs executed one 
e 

YX=164:YY=174:WX=55:WY=60:W2X=73:W2Y=1 
00:W3X=90:W3Y=165 

POKE PLL,8:POKE PLL+1,8:P0KE PLL+2,8:P 
OKE PLL+3,8 

POKE PLX,YX:POKE PLY,YY:POKE PLX+1,WX: 
POKE PLY+1,WY:POKE PLX+2,W2X:P0KE PLY+ 
2, W2Y 

POKE PLX+3,W3X:POKE PLY+3,W3Y 
RETURN 

REM VBLANK INTERRUPT ROUTINE 

REM For moving P/M Sraphics 

DATA 162,3,189,244,6,240,89,56,221,240 

,6,240,83,141,254,6,106,141 

DATA 255,6,142,253,6,24,169,0,109,253, 

6.24.109.252.6.133.204.133 

DATA 206, 189,2 40,6, 133,203, 173,254,6, 1 

33,205,189,248,6,170,232,46,255 

DATA 6, 144, 16, 168, 177,203, 145,2 05, 169, 

0,145,203,136,202,208,244,76,87 

DATA 6,160,0,177,203,145,205,169,0,145 

,203,200,202,208,244,174,253,6 

DATA 173,254,6,157,240,6,189,236,6,240 

,48, 133,203,24, 138, 141,253,6 

DATA 109,235,6,133,204,24,173,253,6,10 

9.252.6.133.206.189.240.6.133 

DATA 205, 189,248,6, 170, 160,0, 177,203, 1 

45,205,200,202,208,248,174,253,6 

DATA 169,0,157,236,6,202,48,3,76,2,6,7 

6,98,228,0,0,104,169 

DATA 7,162,6,160,0,32,92,228,96 

REM {DOWN} P/M Data {DOWN} 

DATA 252,32,35,255,248,240,240,224 
DATA 0,24,124,62,62,126,59,24 
REM {DOWN} Initialize stick values 
{DOWN} 

STX(5)=6:STX(6)=6:STX(7)=8:STX(9)=—6:S 
TX (10)= — 6:STX (11)= —8:STX (13)=0:STX (14) 
=0:STX(15)=0 

STY(5)=6:STY(6)=—6:STY(7)=0:STY(9)=6:S 
TY(10)=-6:STY(11)=0:STY(13)=8:STY(14)= 
-8:STY(15)=0 
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KJ 1800 RETURN 

KO 1810 REM 

JD 1850 RESTORE 1B60:FOR W=1 TO 25: READ P:POK$ 
<W,W)=CHR$(P):NEXT W:RETURN 
EE 1860 DATA 104,74,170,160,0,104,133,255 
HA 18 7 0 DATA 104,133,254,104,240,4,200,145 
ID 1880 DATA 254,136,104,145,254,202,208,237,9 
6 

All 1890 REM GAME OVER 

PB 1900 REM *** G *** 

AO 1910 COLOR 1 : PLOT 73,73:DRAWT0 65,73:PL0T 6 
5,74:DRAWTO 65,81:PL0T 66,74:DRAWT0 66 
,81 

HC 1920 PLOT 65,82: DRAWTO 74,82:DRAWT0 74,79:P 
LOT 73,82:DRAWTO 73,79:DRAWT0 70,79 
00 1930 REM *** A *** 

DI 1940 PLOT 76,82: DRAWTO 79,73:PL0T 80,73:DRA 
WTO 84,82:PLOT 77,78:DRAWT0 83,78 
PH 1950 REM *** M *** 

6L 1960 PLOT 86,82: DRAWTO B6,73:PL0T 87,82:DRA 
WTO 87,73:DRAWTO 91,77:DRAWT0 95,73:DR 
AW T 0 95,82:PLOT 96,73:DRAWT0 96,82 
PS 1970 REM *** E *** 

KH 1980 PLOT 98,82: DRAWTO 98,73:PL0T 99,82:DRA 
WTO 99,73:DRAWTO 106,73:PLOT 100,77:DR 

AW T 0 104,77:PLOT 100,82: DRAWTO 106,82 

AC 1990 REM * * * 0 * * * 

AH 2000 PLOT 1 1 5,82 : DRAWTO 1 1 5,73 : DRAWTO 123,7 
3 : DRAWTO 123,82:DRAWTO 115,82 
KF 2010 REM * * V * * 

KA 2020 PLOT 126,73: DRAWTO 1 30,82 : DR AWTO 134,7 
3 

JG 2030 REM ** E ** 

JA 2040 PLOT 136,82: DRAWTO 136,73:PL0T 137,82: 

DRAWTO 137,73:DRAWTO 144,73 
FN 2050 PLOT 1 38,77 : DRAWTO 142,77:PL0T 138,82: 

DRAWTO 144,82 
KG 2060 REM * * R * * 

HH 2070 PLOT 1 47,82 : DRAWTO 147,73:PL0T 148,82: 

DRAWTO 148,73:DRAWTO 155,73:DRAWTO 155 
,78:PLOT 154,73:DRAWTO 154,78 
JP 2080 DRAWTO 148,7B:PL0T 1 50,7B : DRAWTO 154,8 

2:PLOT 151,78:DRAWTO 155,82 
IE 2090 IF PEEK (53279) < >6 THEN 2090 
AD 2 100 POKE 559,0: RESTART=1 : BURY = 0: FALLEN = 0: S 
=0:YX=164:YY=174:WX=55:WY=60:W2X=73:W2 
Y=100:W3X=90:W3Y=165 

LK2110 POKE PL X , Y X : POKE PLY , Y Y : POKE PLX + 1,WX: 

POKE PLY+1,WY:POKE PLX+2,W2X:POKE PLY+ 
2 , W2Y 
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BP 2 1 20 
FB 2130 

JN 2 1 4 0 
JP 2150 
EP 2 1 60 
GG 2170 

OG 2 1 80 

LN 2190 
BN 2200 
GC 22 10 
AH 2220 
PF 2230 


KB 2240 
LF 2250 
HF 2260 


BB 2270 
DH 2280 


BD 2290 
NH 2300 
DB 23 10 


CL 2320 


10 2330 
FE 2340 
BB 2350 
IJ 2360 

PE 2370 

BI 2380 
JO 2390 
FH 2400 
KH 24 10 
JP 2420 


POKE PLX+3,W3X:POKE PLY+3,W3Y 

COLOR 4:POKE 87,7:F0R Y=69 TO B5:PL0T 

53,Y:DRAWTO 159,Y:NEXT Y 

GOTO 760 

END 

REM INTRODUCTION 

GRAPHICS 1+16:SETCOLOR 0,1,9:SETCOLOR 
1,3,2:SETCOLOR 2,12,6:SETCOLOR 4,3,2 
BEGIN = PEEK (560)+PEEK (561) *256 + 4:SCROLL 
=PEEK(88)+256*PEEK<89) 

RESTORE 2330:X=6 

X = X + 1 : IF X =9 THEN X = X + 1 

IF LEDR*="K" THEN 2240 

READ LEDRt:POSITION X,0:? #6;LEDR* 

FOR Y=1 TO 5:POSITI ON X,Y-1:? #6;" ":P 

OSITION X,Y:? #6;LEDR$:NEXT Y:GOSUB 23 
10:GOTO 2200 

FOR X = 1 TO 8:POSITI ON X,9:7 #6;" B":NE 
XT X:GOSUB 2320 

FOR X = 19 TO 10 STEP -l:POSITION X,9:? 

#6;"Y ":NEXT X:GOSUB 2320 

FOR Y = 22 TO 11 STEP -l:POSITION 6,Y+1: 

? #6;"<5 SPACES!":POSITION 6,Y:7 #6;"S 

TEVE":NEXT Y 

GOSUB 2310 

FOR Y = 22 TO 11 STEP -l.-POSITION 12,Y+1 
:7 #6; "13 SPACES>":POSITI ON 12,Y:? #6; 
"LOW":NEXT Y 
GOSUB 2310 
GOTO 2340 

FOR 1=1 TO 5:SOUND 0,125,14,6:FOR D=1 
TO 5:NEXT D:NE X T I:SOUND 0,0,0,0:RETUR 
N 

FOR 1=1 TO 5:SOUND 0,100,14,6:FOR D=1 
TO 5:NEXT D:NEXT I :SOUND 0,0,0,0:RETUR 
N 

DATA M,T,R,O,C,K 
FOR D=1 TO 200:NEXT D 

REM {DOWN! Scroll intro to left {DOWN! 
X = 0:FOR 1 = 1 TO 19:ML = USR(ADR(POK$) ,BEG 
IN,SCROLL+I):X=X+1 

FOR Y = 5 TO IMPOSITION X,Y:7 #6;" " : NE 

XT Y:NEXT I 

POSITION 3,7:7 #6;"PLEASE WAIT" 
POSITION 3,9:7 #6;"30 SECONDS" 

FOR D=1 TO 350:NEXT D 

RETURN 

END 
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Climb 

David A. Miller 


For two players with joysticks, "Climb" is a different type of race 
game—who has faster reflexes? 

The object of this two-player game is simply to be the first to 
reach the flag at the top of the hill. This should be easy to 
accomplish, but as with most computer games, there is a 
catch. 

After the program has finished initializing, you'll see the 
playfield which contains two hills and two jumpers, one for 
each player. At regular intervals an arrow will appear in the 
middle of the screen near the top. This arrow points in the 
direction in which both players must push their joysticks. The 
first player to push the joystick will see his or her jumper leap 
into the air. The arrow will disappear, only to be quickly fol¬ 
lowed by another arrow indicating in which direction the joy¬ 
stick must be pushed to complete the jump. After a short 
delay, the middle arrow will again appear, and both players 
race to be first to push their joysticks in the proper direction. 
This continues until one of the jumpers reaches the top. 

Now, there's just one more thing I should mention (I told 
you there would be a catch). Just when you think you're mak¬ 
ing progress up the hill, you'll find yourself being knocked 
back down one jump, and ten points will be subtracted from 
your score. Why does this happen? Well, it seems that every 
time your opponent makes a successful jump, you get knocked 
backward. 

Climb 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

CC 9 REM *** POKE NEW CHSET INTO MEMORY AND TU 
RN ANTIC OFF *** 

JN 10 SOSUB 620: GRAPHICS IB: POKE 756,CHSET/256 
:POKE 559,0:GOSUB 400 
PN 20 POKE 709, 196 

FE 22 REM * * * ONE LINE OF GR MODE 1 
FF 30 DL = PEEK(560)+256*PEEK(561)+4: POKE DL+12, 
6:P0SITI0N 1,10:? #6 ; " SHMII3!" : POSITION 14 
,10:7 #6;"score" 

ML 4 0 POKE 559,34: REM *** TURN ANTIC BACK ON 

CP 42 REM *** PRINT SCORE AND ARROW 

OH 50 SPOS1 = 169:SPOS2=170:SCORE1=0:SCORE2==0 
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OP 60 SOUND 0 , 0 , 0 , 0 : SOUND 1, 0 ,0, 0 : POS ITI ON 2,1 
1:? # 6 ; " -t 4 SPACES}":POSITI 0N 1 5 , 1 1 : r> #&. 
"E4 SPACES!" 

AF70 POSITION 2,11:? #6 ; SCORE 1 : POS I T I ON 15,11 
:? #6;SC0RE2:GOSUB 340 

BJ S0 FOR W= 1 TO 200: NEXT W:POKE SCR + 30 , R AND: P 
ONE 53279,1 

HF 82 REM * * * CHECK IF SOMEONE MATCHED 
BD 90 FOR W= 1 TO 90 : S 1 =S T I CK ( 0 ) : S2 = ST I CK ( 1 ) : I F 
S1=ST OR S2=ST THEN 110 
CH 100 NEXT W 
JD 1 1 0 POKE SCR + 30,0 
DI112 REM *** CHECK WHO MATCHED 
PO 120 IF S 1 = S 2 THEN 70 

PA 130 IF S 1 = ST THEN TPOS 1 =SPOS 1 : SPOS 1 =SPOS 1-2 
0:POKE SCR+SPOS1,199:POKE SCR+TPOS1,0:G 
OTO 160 

PH 140 IF S2 = ST THEN TP0S2=SP0S2:SP0S2=SP0S2- 
0:POKE SCR+SP0S2,198:POKE SCR+TPOS2,0: 
OTO 250 
DG 150 GOTO 70 

00 1 52 REM *** PLAYER 1 MATCHED 

EL 160 SOUND 0, 100, 10,8: GOSUB 340:POKE SCR + 45, 
RAND+128 

FI 170 FOR W= 1 TO 75 : S 1 =ST I CK ( 0 ) : I F S1=ST THEN 
190:NEXT W:POKE SCR+45,0 
CP 180 NEXT W 

NE 190 POKE SCR + 45,0: IF SIOST THEN 240 
FE 200 TPOSl=SPOSl : SPOSl=SPOSl — 1 : POKE SCR + SPOS 
1, 196:P0KE SCR +TPOS 1,0: IF SPOSl = l THEN 
WAVE=SPOSl:GOTO 500 

JP210 SCORE 1 =SCORE 1+20 : IF SPOS2>=170 THEN 60 
LK 220 TP0S2 = SP0S2: SP0S2 = SP0S2+1 9 
KF 230 POKE SCR + SP0S2, 197: POKE SCR + TP0S2,0: SCO 
RE2=SCORE2-10:GOTO 60 

K6 240 POKE SCR + SPOS1,0: POKE SCR + TPOS 1 , 1 96 : SPO 
Sl=TPOSl:GOTO 60 
OP 242 REM *** PLAYER 2 MATCHED 

BL 250 SOUND 0,200 , 1 0,8 : GOSUB 340:POKE SCR + 54, 
RAND+64 

FL 260 FOR W = 1 TO 75 : S2 = ST I CK ( 1 ) : I F S2 = ST THEN 
280:NEXT W:POKE SCR+54,0 
CP 270 NEXT W 

NF 280 POKE SCR + 54, 0: IF S2< >ST THEN 330 
KC 290 TP0S2 = SP0S2 : SP0S2 = SP0S2+1 : POKE SCR + SPOS 
2,197:POKE SCR+TP0S2,0:IF SP0S2=18 THEN 
WAVE=SP0S2:GOTO 560 

KI 30 0 SCORE2 = SCORE2 + 20: IF SP0S1>=169 THEN 60 
KP310 TPOSl=SPOSl : SP0S1=SP0S1+21 
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KA 320 

KL 330 

DK 332 
NF 340 

DI 350 
DL 360 
DG 370 
GO 380 
JB 390 
FF 392 
JH 400 

FD 4 1 0 
OG 420 
GF 430 
FB 432 
OL 440 
FJ 450 
P! 460 
GN 470 
CL 480 
HD 490 

IH 492 
DE 500 

LJ 51 0 

EL 560 

LH 570 

EH 580 

JB 590 

JN 600 

IN 610 
ON 612 
JM 620 

BN 630 

HA 6 40 


POKE SCR+SPOS1,196:POKE SCR+TPOS1,0:SCO 
RE1=SC0RE1—10:GOTO 60 

POKE SCR+SP0S2,0:POKE SCR+TP0S2,197:SPO 
S2=TP0S2:GOTO 60 

REM *** RANDOM ARROW DIRECTIONS 
RAND=INT(RND(0)*4)+8:IF RAND=TRAND THEN 
340 

IF RAND=8 THEN ST=13 

IF RAND=9 THEN ST=14 

IF RAND=10 THEN ST=7 

IF RAND=11 THEN ST=11 

TRAND=RAND:RETURN 

REM *** CREATE PLAYER1’S HILL 

SCR=PEEK(88)+256*PEEK<89):POKE SCR,129: 

C=1:B=20 

FOR A = 0 TO C:POKE SCR+B+A,3:NEXT A 
B=B+20:C=C+1:IF B>180 THEN 440 
GOTO 410 

REM *** CREATE PLAYER2'S HILL 
B=39:C=1:POKE SCR+19,65 
FOR A=0 TO C:POKE SCR+B-A,3:NEXT A 
B=B+20:C=C+1:IF B>199 THEN 490 
GOTO 450 

POKE SCR+169,196:POKE SCR+170,197 

FOR A=200 TO 219:POKE SCR+A,3:NEXT A:RE 

TURN 

REM *** END OF GAME 

A = PEEK(710) :FOR W=1 TO 150:B = PEEK ( 53770 
):POKE 710,B:SOUND 0,B,10,6 
NEXT W:POKE 710,A:SOUND 0,0,0,0:SOUND 1 
,0,0,0:GOTO 580 

A=PEEK(709):FOR W=1 TO 150:B=PEEK(53770 
):POKE 709,B:SOUND 1,B,10,6 
NEXT W:POKE 709,A:SOUND 1,0,0,0:SOUND 0 
,0,0,0 

POSITION 7,3:? #6; "r -Tg^Eg- " : POSITION 8,4: 
? #6; "gSEHSj" 

POKE SCR + WAVE,204: X = COS(5) : IF PEEK(5327 
9)=6 THEN 610 

POKE SCR+WAVE,205:FOR W=1 TO 50:NEXT W: 

GOTO 590 

RUN 

REM *** TITLE SCREEN 

GRAPHICS 17:DL=PEEK(560)+256*PEEK(561)+ 
4:POKE DL+10,5:POKE DL+15,4 
POKE 711,132:POKE 710,136:POKE 709,32:P 
OKE 708,40 

POSITION 15,9:? #6;”C L I M B":POSITION 
12,15:? 46; "r OT THJ^kL i i Tr gH.m " 
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LJ 642 REM *** REDEFINE CHARACTER SET 
CN 650 CHSET= (PEEK ( 106)-B) *256: IF PEEKCCHSET+l 
* B)=112 THEN RETURN 

JH 660 FOR 1=0 TO 512:P0KE CHSET+I , PEEK ( 57344 + 
I ) :NE X T I :RESTORE 700 
KO 670 READ A: IF A = -l THEN RETURN 
AC 6B0 FOR J = 0 TO 7 : READ B:POKE CHSET +A *8 + J,B: 
NEXT J 

HF 690 GOTO 670 

SF 692 REM *** DATA FOR NEW CHSET 

IA 700 DATA 1,1 12,120,124,126,127,96,96,96 

CL 71 0 DATA 3,255,195,129,129,129,129,195,255 

AN 720 DATA 4,56,108,60,24,120,24,40,108 

HH 730 DATA 5,28,54,60,24,30,24,20,54 

IN 740 DATA 6,28,54,60,26,28,56,40,80 

IP 750 DATA 7,56,108,60,88,56,28,20,10 

01760 DATA 8,24,24,24,24,255,126,60,24 

OK 770 DATA 9,24,60,126,255,24,24,24,24 

LC 780 DATA 10,8,12,14,255,255, 14,12,8 

IC 790 DATA 1 1,16,48,1 12,255,255,1 12,48,16 

HB791 DATA 12,60,102,60,24,126,153,36,102 

HE 792 DATA 13,60,102,61,25,126,152,36,102 

BA 800 DATA - 1 
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Front Attack 

Robert J, Neep 


"Front Attack" features vivid scrolling graphics and fast action. 
You need a joystick, at least 16K RAM, and quick reflexes to play 
this one. 

As you're exploring a newly discovered planet, alien ships be¬ 
gin coming at you. You're not sure if they're friend or foe. But 
to be safe, you should try to avoid them. Soon, though, you 
discover that friendly is not a word in their vocabulary—it's 
you or them. 

Attack 

Once the title screen appears, press the START key to begin 
the attack. As the aliens attack, you have two options: avoid 
them by moving your joystick up and down or fire at them by 
pressing the joystick button. You'll soon discover that your ship 
is stronger than you had expected. It can withstand three direct 
hits before the game ends and your score is displayed. The 
score is based on the number of aliens you manage to down. 

Front Attack 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FO 7 POKE 623 , 1 

GH 10 GOSUB 1000: LI FE = 3 

DP 20 DIM P$ ( 1024) , D$ (50) , SHIP* (30) , LAZER* (30) 

,ENEt(30),FM$(30) 

FJ 30 VT=PEEK ( 134) +PEEK ( 135) *256 

DP 40 AT=PEEK(140)+PEEK(141)*256 

NC 50 POKE 559,62 : RX 1 = 1 : RX2= 1 

BM 60 PM = PEEK ( 1 06 ) -32 : POKE 54279,PM 

JI 70 POKE 53277,3:P0KE 53258, 1 : POKE 53259,1 

JI 80 0FF=PM*256+1024-AT 

BK 90 HI = INT (OFF/256 ) 

CO 100 LO = OFF-H I *256 : POKE VT+2,L0:P0KE VT + 3,HI 
PG110 POKE 704, 168: POKE 705,248 
OH 120 POKE 706,200: POKE 707,250 

BF 130 D$="{45 , } " : FOR 1=2 TO 1024 STEP 25:P$( 

I)= D $ :NEXT I:POKE 53248,80 
CN 135 POKE 53257,3 
JN 140 X = B0: Y = 90: X 1=3: Yl=347 
HA 150 X2 = 200: Y2 = 600: X3 = 200: Y3 = 855 
01 170 P$(Y) =D$: Pt (Y1 ) =D$ : P$ ( Y2 ) = D$ : P$ ( Y3 ) =D* 
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BB 180 SHIP$="{5 , }(!EKB>Er ''□{=!?{=!□'' 'EKBIEH 

C 5 , ! " 

BL 190 LAZER$="{5 ,1QC13 , !{3{7 

NP 200 ENE$= 11 C 5 ,><IX1{BACK SXCBACK S) II NSERT! 

milNSERTHBACK SXCBACK SXXX5 
Oft 210 P$(Y2)=ENE$:P$ ( Y3)=ENE$ 

LD310 S = STICK (0) : SCR = SCR+1 : POKE LL,SCR:IF SCR 
>40 THEN SCR=1 

OF 3 40 IF S= 1 3 THEN Y=Y+5:IF Y>130 THEN Y=130 
II 350 IF S= 1 4 THEN Y=Y-5:IF Y<25 THEN Y = 20 
IK 360 P* ( Y) =SHIPt: POKE 53250 , X 2 : POKE 53251, X3 
Ift 370 IF ACT=0 THEN IF STRIG(0)=0 THEN Xl=80: 

ACT=1:Y1=Y+256:P$(Y1)=LAZER$:SOUND 0,10 
,8, 15 

EB 380 IF ACT=1 THEN X 1 = X 1 + 1 5 : POKE 53249, X1:IF 
XI>190 THEN GOSUB 4000 

MC 390 X2 = X2-RX1: X3=X3-RX2: IF X2<40 THEN GOSUB 
500 

6D 400 IF X 3< 0 THEN GOSUB 550 
PL 410 IF PEEK (53260) >2 THEN 2000 
Nft 420 IF PEEK(53261) >1 THEN 600 
6K 490 GOTO 310 

BO 500 X2 = 255: P $ (Y2) = D $ : Y2 = RND (0)*100 + 550:POKE 
706,RND(0)*255:SP1=SP1+0.5:RX1=RND(0)* 
3 + SP1:P* ( Y2)=ENE* 

BC510 IF S P1 >25 THEN SP1=4 
HH 520 RETURN 

CJ550 X3=255:P$(Y3)=D$: Y3 = RND (0) *100+800:POKE 

70 7,RN D(0) *254:SP2 = SP2 + 0.5:RX2 = RND(0) * 
3+SP2:P$(Y3)=ENE$ 

BN 560 IF SP2 >36 THEN SP2 = 5 

Hn 570 RETURN 

IN 600 SCORE = SCORE + 250 


PP 6 1 0 
ftC 620 
GG 630 
DL 80 0 


ON 8 1 0 
Dft 82 0 
LB 830 


El 
HH 
GK 
EL 
Dft 

in 1050 
DC 10 60 


1000 
10 10 
1020 
1030 
1040 


IF PEEK (53262) >1 THEN 3000 
IF PEEK (53263) >1 THEN 3100 
GOTO 310 

GRAPHICS 2+16:POKE 559,62:P0KE 53248,0: 
POKE 53249,0:POKE 53250,0:POKE 53251,0: 
POKE 53278,0 

POSITION 0,3:7 #6: " ?TTTT! JtW J.1 J--IM I ■■ ■ ■. " 
POSITION 7,5:7 #6;SC0RE 

SOUND 0,0,0,0:F OR W=1 TO 1000:NEXT W:RU 
N 

GRAPHICS 2+16:POKE 559,62:7 #6 

# 6 ; " *£2*S*E3*S2*E*E3*E2*S2*S2* " 

" □ compute ! books £2" 

"* * ** c3 SPACES! * " 


7 

7 

7 

7 

r? 


#6 

#6 

#6 

#6 

#6 


"S2C17 SPACES! £3” 

"* >F rHHIT AtS33Ck< 
"QC17 SPACES! £3" 
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GO 1070 ? #6 ; "*13 SP ACES } START 

C3 SPACES}*" 

HP 1090 7 #6; " *£S*£3*£2*S2*52*52*E3*s2*E3* " 

CC1110 POKE 708, 122:P0KE 709,236 
OF 1120 AA1=0:RXRX=6 

HB 1130 FOR 1=2 TO 15:S0UND 0 , A A 1 , 1 0 , I : SOUND 1 
,AA1+1, 10, I:NEXT I :AA1=AA1 + 1: IF AA1>RX 
RX THEN 1150 

EA 114 0 FOR 1 = 15 TO 2 STEP -IsSOUND 0,AA1,10,I 
:SOUND 1,AA1 + 1, 10, I:NEXT I:AA1=AA 1 + 1:G 
OTO 1130 

JF 1150 SOUND 1,0,0,0 

ED 1160 IF PEEK (53279) =6 THEN 1180 
IC 116 5 SOUND 0, RND (0) *255, 10,2: FOR W=1 TO 10: 
NEXT W 

UK 1170 GOTO 1160 

HI 118 0 GRAPHICS 7 + 1 6 : DL = PEEK ( 560 )+256 * PEEK ( 5 6 
1):LL=DL+4:POKE 53256,0 
EJ 1190 POKE 708, 136: COLOR 1 

m 1200 FOR 1=0 TO 50:SOUND 0,RND ( 0) *255, 10, 10 
BN 1210 PLOT RND (0) *159, RND (0) *95: NEXT I 
LO 1220 POSITION 10,10:7 #6;"<4 SPACES} AAAAA 
{4 SPACES}" 

EC 1230 POSITION 10,11:7 #6;"C3 SP A C ES } A A A A A A A 
C3 SPACES}" 

HG 1240 POSITION 10,12:7 #6;" AAAAAAA A A 
EN 1250 POSITION 10,13:7 #6;" AAABAABBAAA " 

ND 1260 POSITION 10,14:7 #6 ; " AAABAABBBB AAA " 

NH 1270 POSITION 10,15:7 #6;"AABAABBBBBBAA" 

NI 1280 POSITION 10,16:7 #6 ; " AABAA ABBBBBAA " 

NJ 1290 POSITION 10,17:7 #6; "AAAAABBBBBAAA" 

EP 1300 POSITION 10,18:7 #6;" AAAABBBBAAA " 

HN 1310 POSITION 10,19:7 #6;" A A ABB AAA A 

ED 1320 POSITION 10,20:7 #6;"C3 SPACES} AABfifiAA 
C3 SPACES}" 

HC 1330 POSITION 10,21:7 #6;"L4 SPACES} AAAAA 
{4 SPACES}" 

AI 1340 POSITION 50,50:7 #6;" BB 

IN 1350 POSITION 50,51:7 #6;" BAAB " 

BD 1360 POSITION 50,52:7 #6; "BBBABB" 

BF 1370 POSITION 50,53:7 #6; "BBABBB" 

JD 1380 POSITION 50,54:7 #6;" BB AB " 

BC 1390 POSITION 50,55:7 #6;" BB 

JK 1400 RESTORE 1500:COLOR 2 
AD 14 10 FOR 1 = 0 TO 159:S0UND 0,1,8,15 
BD 1420 READ MT : PLOT I , MT 

FP 1430 DRAWTO I,95:NEXT I : SOUND 0,0,0,0 : RETUR 
N 
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EK 1500 DATA 90,89,87,86,85,84,83,82,82,83,84, 
85,86,86,85,84,83,82,81,80,79,77,75,73 
?72,71,70,70,69,69,69,68,68 
LK 1510 DATA 68,68,69,69,69 

NE 1520 DATA 70,70,71,72,71,70,69,68,67,66,65, 
64,63,62,61,60,61,62,63,63,62,61,62,63 
,64,65,67,69,72,74,76 

Cl 1530 DATA 75,74,73,70,68,65,63,60,58,57,58, 
60,61,63,64,65,67,65,64,62,60,60,60 
AH 15 4 0 DATA 6 1,62,63,64,65,66,67,68,69,70,70, 




70, 

7 1 

, 74 

, 76 

, 78 

, 79 

, 80 

, 80 

, 80 

,81 




BE 

1 550 

DATA 

77, 

78, 

79, 

80, 

8 1 , 

82, 

83, 

84, 

85 , 

86 , 

87, 



88, 

89 

, 90 











G1 

1560 

DATA 

90 , 

90 , 

91 , 

92, 

93, 

94, 

94, 

93, 

93, 

92, 

92, 



91 , 

91 

, 90 

, 90 

, 89 

, 88 

, 89 

, 88 

, 87 

, 86 

, 85 

, 85 



El 1570 DATA 8 4,83,84,85,86,87,88,89,90,90,90 
EE 2000 POKE 712, 14: FDR W=1 TO 10:NEXT W:POKE 
712,0:POKE 5 3 2 5 6 , 1 : D $ = " { 2 4 ,>":P$(Y)=D 
$ : Q 9 = 3 

FG 200 1 POKE 53249 , 1 

FN 2005 FB = FB+1: IF FB>9 THEN FB=1 

JN 20 10 IF F B < 5 THEN FM$="16 , J 3 1C3J THJ 16 ,} 

":P$(Y)=FM$ 

LK 2 0 15 Y = Y + Q9: IF Y>215 THEN Q9 = -3 
IN 2020 IF FB >4 THEN FM$="{6 , J R t J > Q ( CHJ 7. i 6 ,J 
”:P$(Y)=FM$ 

BH 2030 ZZ = ZZ + 1 : POKE LL,ZZ:IF ZZ>40 THEN ZZ=1 
CN 2040 X = X + 2: POKE 53248 , X : GOUND 0,X,B,15:IF X 
>200 THEN X2=200:X3=200:X=80:POKE 5325 
0, X 2: POKE 53251, X3:GOTO 2060 
MH 2050 GOTO 2005 
ME 2 060 P$ ( Y > =D$ : Y = 90 

EF 2065 SOUND 0,0,0,0: P$ (Y) =SHIP$: POKE 53248, X 
:POKE 53256,0:POKE 53278, 1 :LIFE = LIFE-1 
: I F L I FE<1 THEN 800 
DJ 2070 GOSUB 500: GOSUB 550:GOTO 310 
JC 3000 X X X = X 2 

NB 3020 FOR I = XXX TO 210 STEP 10:SOUND 0, 1,8,1 
5:POKE 706, I:POKE 53250, I:NEXT I :GOSUB 
4000:POKE 53278,0 
OC 3030 GOSUB 50 0: GOTO 310 
ED 310 0 XXX1 = X3: GOSUB 4000 

BF3110 FOR I = XXX1 TO 210 STEP 10:SOUND 0,1-20 
,8,15:POKE 707,I:POKE 53251,I:NEXT I:P 
OKE 53278,0 

00 3120 SOUND 0,0,0,0: GOSUB 550:GOTO 310 
KN 4000 X 1 =0 : ACT = 0 : SOUND 0,0,0,0:POKE 53249, XI 
:Pt(Yl)=D$:RETURN 
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Electronic Football 

Buren Earl Wells, Jr. 


"Electronic Football'' is a game for those who want to do some¬ 
thing a little closer to home than shooting aliens or running from 
goblins. Joystick required. 

"Electronic Football" is for two players using one joystick. 

Each player takes a turn controlling the offense, and the com¬ 
puter controls the defense. 

At the beginning of each game, the players have the op¬ 
tion of choosing one of five possible skill levels. Each game is 
divided into two nine-minute, 59-second halves in which the 
first player starts the first half and the second player starts the 
second half. The clock stops after each play. Scoring is accom¬ 
plished by either a field goal (three points) or a touchdown 
(seven points). The score is displayed when a player scores 
and at the end of the game. It can also be displayed before 
any play begins by pressing the trigger button on the joystick. 

The offense consists of one man that must elude 11 
would-be tacklers in his quest for a score. You can move this 
man in the upward, downward, or forward direction by using 
a joystick which is connected in the first joystick port. Four for¬ 
ward steps by the offensive man are equal to a yard. You can't 
move backward, however, so once a forward step is made, 
there is no turning back. As in real football the offensive 
player has four downs in which to move ten yards, or the ball 
turns over and it's the other player's turn to control the 
offense. 

The Huddle 

Before every play the current down, field position, yardage, 
time remaining, and the player who is controlling the offense 
are displayed on the border of the playing field. It's at this 
time that the offensive player must decide what to do. If the 
player wants to kick, he or she simply presses the START but¬ 
ton. If the offensive man is out of range of a field goal (more 
than 50 yards away), or if the field goal try is unsuccessful, 
the kick is a punt and the ball turns over. If the offensive 
player desires to run instead, the play is started by moving the 
joystick. 
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Field Position 

The color of the sideline markers indicates whose territory the 
offensive man is in at the beginning of the play. If the sideline 
is the same color as the offensive man, then the man is inside 
his own 50-yard line. Otherwise, the offensive man is inside 
the opponent's 50 and may be nearing a score. 

Electronic Football 

For error-free program entry, read “The Automatic Proofreader," Appendix C, before typing 
in this program. 

FL10 GOTO 1000 

CO 20 IF STICK (0) < >15 THEN ST= ST I CK ( 0 ) : GDSUB 2 
00 

FK 3 0 IF L >LP THEN GDSUB 300 
GK 40 L = L + 1 : GOTO 20 

00 200 H = 0: V = H : TR = H: Z = H: IF ST=13 AND PLV<9 THE 
N LOCATE PLH,PLV+1,Z:V=1 
JJ210 IF ST= 14 AND PLV>3 THEN LOCATE PLH,PLV- 
1 , Z:V = -1 

LF 220 IF ST = 7 THEN LOCATE P LH + 1 - 2 0 * ( PL. H= 1 9 ) , P 
LV,Z:H=1:IF PLH>18 THEN H=-19:FIVE = FIVE 
+ (Z< >2 AND Z< >130) 

01230 IF Z = 130—128* (PL = 2> THEN M ( I , 1 )=PLH:M(I 
,2)= P L V :GOTO 600 

BL 240 IF Z THEN POKE 53279,0: COLOR 32:PL0T PL 
H,PL V :PLH=PLH+H:PLV=PLV+V:COLOR 1+128*( 
PL = 2 > :PLOT PLH,PLV 

LD 250 IF PI + INT ( F I V E * 5 + P L H / 4 ) +YDS>99 THEN 800 
HI 260 RETURN 

IJ 300 I = INT (RND(0) * < 1 1-2* <PS>65 AND PS<89>>>* 
(PLH<6) + (10-INT(RND(0) *2)—INT(RND (0) *3) 
* (PLH< 9) ) * (PLH >5) 

OF 3 1 0 L = 0xrH = L : V = L : I F RND(0)>0.4 AND M(I,2)OP 
LV AND I< >CR THEN 350 

HK 320 IF PLH<M(I, 1) THEN M(I, 1>=M ( I , 1>-1:H=1 
PI 330 IF PLH>M (1,1) THEN M ( I , 1 ) =M ( I , 1 ) + 1 : H = - 1 

GK 340 GOTO 370 

OH 3 50 IF PL V< M ( I , 2 ) THEN M ( I , 2 ) =M ( I , 2 > - 1 : V= 1 

BK 360 IF PLV >M ( I , 2 ) THEN M ( I , 2 ) = M ( I , 2 ) + 1 : V = - 1 

CP 370 LOCATE M ( I , 1 > , M ( I , 2 > , Z : I F Z = 1 + 1 28 * ( PL = 2 

) THEN 600 

KG 380 IF Z = 1 30-1 28* ( PL = 2 ) THEN M ( I , 1)=M( I , 1 > + 
H:M(I,2)=M(I,2)+V:RETURN 
IF 390 COLOR 32 : PLOT M ( I , 1 )+H , M(I,2)+V:COLOR 1 
3 0—128* (P L = 2) :PLOT M ( I , 1) , M ( I , 2 ) :RETURN 
Efl 4 00 GRAPHICS 2+16:P0KE 756,CHSET/256:T 1 =PEE 
K(20) :T2 = PEEK ( 19) :TIME=Tl/60+T2*256/60: 
SETCOLOR 1,9,8 
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NG410 Q = 1 28 * ( (PS< 51 ) * ( PL = 1 ) OR ( PS >50 ) * ( PL = 2 ) 

):FOR Y=2 TO 10 STEP 8:F0R X=0 TO 19 ST 
EP 4 

NF 420 COLOR 131-Q:PL0T X,Y:COLOR 133-Q:PL0T X 
+l,Y:PLOT X +2, Y:COLOR 132-Q:PL0T X + 3,Y: 
NEXT X:NEXT Y 
AG 430 IF T I ME >599 THEN 850 

BK 440 POSITION 0,0:? #6; "DOWN POSITION YARDS" 
AI 450 TM=INT(TIME/60) :TS=(TIME/60-TM) *60 
CJ 460 POSITION 2,1:? #6 ; DOWN : POS I T I ON 8,1:? # 
6;POS:POSITION 16,1:? #6;YARDS 
Pft 470 POSITION 0,11:? #6; "TIME ";9-TM; ". ";59- 
INT(TS) : IF INTCTS>>49 THEN POSITION 7,1 
1 :? #6; "0";59-INT(TS) 

NB 480 POSITION 11,11:? #6; "PLAYER ";PL:PLH = 0: 

PLV=6:COLOR 1 + 1 28* (PL = 2) :PLOT PLH,PLV 
FP 490 T = 2 : FOR 1=0 TO 6 : M ( I , 1 ) =3 : M ( I , 2 ) = 1+ T : T = 
T+l:COLOR 130-128*(PL=2):PLOT 3,M(I,2): 
NEXT I 

KN 500 T = 3 : FOR 1=7 TO 8 : M ( I , 1 ) =6-( PS >89 ) : M ( I , 2 
)=1+T:T=T+4:PLOT M(I,1),M(I,2):NEXT I 
D6510 T = 4 : F OR 1=9 TO 1 0 : M ( I , 1 ) = 8 - 2 * ( P S >8 9 ) : M ( 
I ,2)=1 + T:T = T + 2:PLOT M(I, 1) ,M(I,2) :NE X T 
I 

PA 520 IF STRIG (0) = 0 THEN GOSUB 900:GOTO 440 
CB 530 IF PEEK (53279) <7 THEN POKE 19,T2:P0KE 2 
0,T1:GOT 0 950 

JA 540 IF STICK (0) =15 THEN 520 

IE 550 POKE 77,0: LP= ( INT (RND (0) *3) ) * (PS<65)+2* 
(PS<40)+2*(PS<80)+SK:POKE 19,T2:P0KE 20 
,T1:CR=(RND(0)<0.5)*6:GOTO 20 
(P 600 SOUND 0,72, 10, 15: FOR A=1 TO 100:NEXT A: 

SOUND 0,0,0,0:FOR A=1 TO 4:C0L0R 32:PL0 
T M ( I , 1)+H,M(I,2) +V 

PM 61 0 FOR A A= 0 TO 60:NEXT AA:COLOR 130-128*(P 
L = 2) :PLOT M(I, 1 )+H,M(I,2)+V:FOR AA = 0 TO 
60:NEXT AA:NEXT A 

IP 620 YDS=INT (FIVE*5+PLH/4) + YDS: YARDS=10 —YDS 
AH 630 PS = PI+YDS:POS = PS: IF PS>50 THEN POS=100- 
PS 

BK 640 IF YDS >9 THEN YARDS= 1 0 : DOWN = 0 : P I =P I+YDS 
: Y DS = 0 

KO 650 FI VE = 0: DOWN = DOWN+l : IF D0WN = 5 THEN 700 
NM 660 IF Y ARDS >POS AND PS>90 THEN YARDS = POS 
GK 670 GOTO 400 

JM 700 FOR 1 = 1 TO 10: SOUND 0,72 , 1 0 , 1 5 : FOR A=1 
TO 20:NEXT A:SOUND 0,0,0,0:FOR B=1 TO 5 
:NE X T B:NEXT I 

HI 710 IF PL= 1 THEN PL = 2:G0T0 730 
KD 720 PL= 1 
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DK 730 

61 740 
CB 800 

FQ 8 1 0 

IL 850 
HC 860 


ME 870 

MJ 880 

JK 890 
Ift 895 
HF 900 

N6 9 1 0 

DB 920 
AI 930 
LJ 950 
NE 960 
CH 970 

BE 980 

JD 1000 


BH 10 10 


FO 1020 


KK 1030 
IK 1 040 


EO 1050 
IC 1060 

LO 1070 
B! 1 080 

GF 110 0 
KC 1110 


PS=100-PS:PI=PS:D8WN=1:YARDS=10:YDS=0:P 
QS = PS: IF PS >50 THEN POS=100-PS 
GOTO 400 

FOR A =1 TO 4:FOR 1=10 TO 70:SOUND 0,1,1 
0,15:NEXT I:SOUND 0,0,0,0:NEXT A 
SCR(PL)=SCR(PL)+7:PS = 80:POS = 20:FIVE=0: G 
OSUB 900:GOTO 710 
IF HH THEN 880 

POSITION 6,6:? #6;"HALF TIME":GOSUB 900 
:POSITION 0,6:7 #6;"player 2 is up NOW" 

:FOR 1=1 TO 600:NEXT I 

HH=1:PL=1:PS=80:POKE 19,0:POKE 20,0:GOT 
0 710 

HH=2:POSITION 0,5:? #6;"*** END OF GAME 
He**":? #6:? #6; "PRESS START TO PLAY" 
GOSUB 900:IF PEEK(53279)<7 THEN RUN 
SOTO 890 

POSITION 0,0:? #6;"PLAYER 114 SPACES1PL 
AYER 2":POSITION 0,1:? #6;"119 SPACES}" 
POSITION 3,1:? #6;SCR ( 1) :POSITI ON 14,1: 

? #6;SCR(2):IF HH=2 THEN RETURN 
FOR 1=1 TO 300: NE X T I 

POSITION 0,0:? # 6; "14 0 SPACES}":RETURN 

IF RND(0)<(PS-40)/44 THEN 970 

PS = PS+INT(RND(0) * (100-PS) ) :GOTO 700 

FOR A =1 TO 2:FOR 1 = 10 TO 70:SOUND 0,1,1 

0, 15:NE X T I:NEXT A:SOUND 0,0,0,0 

SCR (PL)=SCR (PL)+3:PS = 80:POS = 20:FIVE = 0: G 

OSUB 900:GOTO 710 

DIM M(11,2), T*(3),SCR(2):PS=20:PI=PS:P 
OS = PS:PL=1:DOWN = PL:YARDS=10:SCR(1)=A: S 
CR(2)=A:OPEN #1,4,0,"K:" 

GRAPHICS 2+16:? #6 ;" ELECTRON IC |g. I .H.-T:T 
CH3" : POS I T I ON 2,6:? #6; "levels of skill 

11 

POSITION 0,8:? #6;"easyd2 SPACES}hard" 
: ? #6; "T C3 gLJUiliS} El 3 EEEHS)0 
13 El 5 

GET #1,SK:IF SK<49 OR SK>53 THEN 1030 
CHSET=(PEEK(106)-8) *256: IF PEEK ( CHSET + 

12 > =16 THEN POKE 19,0:POKE 20,0:SK = 54- 
SK:CLOSE #l:GOTO 400 

POSITION 4,3:? #6;"please wait" 

FOR 1=0 TO 512:POKE CHSET+I,PEEK (57344 
+ I) :POKE 708,PEEK (53770) :NEXT I 
READ A:IF A=-1 THEN 1040 

FOR J = 0 TO 7:R EAD B:POKE CHSET + A*8 +J,B 
:POKE 708,PEEK (53770) :NEXT J:GOTO 1070 
DATA 1,0,60,52,60,16,30,16,40 
DATA 2,0,60,36,60,24,126,24,36 
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Hf 1120 
HP 113 0 
FH 1 1 40 


DATA 3,0,128,128,255,255,128,128,0 
DATA 4,0,1,1,255,255,1,1,0 
DATA 5,0,0,0,255,255,0,0,0,-1 
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The Heavenly Gates 

Robert F. Host 


Can you keep the demons out and still maintain your composure? 
"Heavenly Gates" is also a good example of how to mix BASIC 
with machine language. Requires a joystick. 

The demons have broken free of their prison and are storming 
the gates of heaven. You are the lone defending angel and 
must keep the attacking demons from penetrating the gates. 
Your mere touch sends a demon back in the direction it came 
from, but once a demon hits a border, it can rebound in any 
direction. 

You can repel only one demon at a time, so be sure to 
break contact with one demon before trying to fight off an¬ 
other. Control the position of your angel with a joystick in 
port 1. You get points for time the heavenly gates are free of 
demons, but you lose points at a much faster rate when there 
is at least one demon inside the gates. A 5-point bonus is 
awarded every time your angel repels a demon. To advance to 
the next round, you must at least maintain your score from the 
previous round. Each round has a time limit of about two 
minutes. If you make it through all nine rounds, you receive a 
5000-point bonus and a salute from the heavenly trumpets. 

This game is not as easy as it looks. Your angel can't keep 
up with the three demons if they're attacking from opposite 
directions. It's sometimes best to let a demon pass through the 
gates in order to get all the demons on the same side. In the 
faster rounds, trying to repel a demon from the side may be 
ineffective. Try to meet the demons head-on if possible. Learn 
where the boundaries for point loss are—don't waste time go¬ 
ing after demons that aren't costing you points. Remember, 
the key to scoring points is keeping demons out of the gate 
area. If there are no demons attacking, keep your angel near 
the gates—don't chase the demons. 

After typing in the program, be sure to save it before you 
run it. 

Memory Allocation 

The main problem with combining BASIC and machine lan¬ 
guage is memory allocation. To write the main loop of the 
program, I had to find an area of memory which BASIC 
wouldn't touch. Since I used page 6 for a vertical blank, and 
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since I anticipated that the routine would not be relocatable 
and thus could not be coded as a string, I had to look 
elsewhere. 

Fortunately, the Atari has a couple of pointers which 
helped. Memory locations 144 and 145 point to the highest 
byte of memory used by the BASIC program in memory. By 
the direct statement PRINT PEEK(144) + 256*PEEK(145), I was 
able to determine the approximate top of memory used by the 
BASIC program after the bulk of the BASIC was written. I 
started the machine language routine above this, leaving about 
4K between the top of the BASIC and the beginning of the 
machine language routine. 

Location 106 was the other Atari pointer used in the 
development of this program. It points to the page number of 
the top of free RAM. However, space for screen memory and 
player/missile graphics data was needed below the top of free 
RAM. For graphics 7 screen memory, 32 pages of RAM were 
reserved, and 8 pages were reserved for double-line-resolution 
P/M graphics, yielding 40 pages of reserved memory (10K) 
below the value in location 106. For a 48K system, location 
106 = 160, so the highest memory location available for the 
machine code was (160 —40)*256, or location 30720. However, 
since the bottom four pages of P/M memory are not used, I 
used the bottom 27 bytes (30720-30746) for storage of various 
machine language variables. 

Another problem with mixing BASIC and machine lan¬ 
guage is communication between the two. Such variables as 
the score, the round number, and the speed of the players 
must be updated and transferred as the game progresses. You 
can accomplish this by using additional parameters in the USR 
function, but this involves complex stack manipulations. An 
easier way is to POKE the variable value from BASIC into a 
reserved memory location where it can be picked up by the 
machine language routine. The PEEK function can be used by 
BASIC to retrieve a variable updated by the machine language 
routine and stored in a known location. Examples of these 
techniques are found in lines 305, 307, 7805, and 16020. 

Credit 

Lines 8000-9600 were derived from a player/missile move¬ 
ment routine by Chris Nicotra, reprinted courtesy of ANTIC 
Publishing, Inc. (June 1983). 
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Program Description 


Lines 

7-10 

13-18 

20-30 

33-107 

110-226 

227-276 

295-307 

310-320 

7800-7830 

7900-7950 

8000-9600 

10000 

12000-12090 

14000-15070 

16000-16030 

17000-18060 

20000-20999 


Description 

Initialize constants and subroutine line numbers 

Initialize demon directions 

BASIC time-delay routine 

Title screen routine 

Initialize player/missile graphics 

Draw playfield 

Enable DLI and screen; initialize timers and round 
parameters 

Execute main loop (machine language) 

End of round handler 
Game loss handler 
VBLANK data and P/M setup 
Data for heavenly gates 
Install DLI 
Play tunes 
Go to next round 
Win the game routine 

Data for main loop machine language program 


Heavenly Gates 

For error-free program entry, react "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HK 7 RNDOVR=30745:TUNE=14000:ENTUNE=15000:WIN= 
17000:WINSOUND=18000 
DJ 8 POKE 82,0: POKE B3,39:P0KE RNDOVR,0 
IA 9 SCORE = 0:ROUND=50: R=1 

PE 10 RANDOM=53770:WAIT=20:PAGE6=8000: PMINIT=9 
000:XDIRECTI0N=13:YDIRECTI0N=15: NXTROUND 
=16000:DLI-12000 
AC 12 GOTO 33 

HP 13 REM i =*:i =ISI :m:m<y*-A=tm*ov: 

JI 14 DIRX=INT (PEEK (RANDOM) *3/256)-1 : IF DIRX<0 
THEN DIRX=255:RETURN 
IC 15 REM 

ID 16 DIRY=INT (PEEK (RANDOM) *3/256)-1 : IF DIRY<0 
THEN DIRY=255 

OC 17 IF DIRX = 0 AND DIRY = 0 THEN GOTO 16 

EJ 18 RETURN 

AE 20 REM SB'rer=M>rewE’n 

HL 22 FOR DELAY= 1 TO JIFFIES 

Kfi 24 TICK = PEEK(20) 

HO 26 IF TICK = PEEK (20) THEN 26 
BI 28 NEXT DELAY 
ED 30 RETURN 
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JC 33 
PH 54 


HB 58 

A! 62 

LP 77 

6E 100 
BN 101 
DH 102 
CK 104 
NK 106 
EN 107 


DC 108 
10 1 10 


BH 111 


fll 1 12 
LB 113 

FB 1 19 
CL 130 
CH 140 
FJ 150 
66 160 
LC 179 
L0 180 
F6 181 
6C 182 
6E 183 
AD 184 
AL 185 
LE 189 
HB 190 
FI 191 
6C 192 
6K 193 
DA 194 
6L 195 
LD 196 
HK 197 


REM = 

GRAPH I CS 1 8 : POS I T I ON 0,0s? #6 ;••***** * ** * 
***********":POSIT ION 0,10:? #6;"******* 
*************" 

FOR 1 = 1 TO 9 : POS IT 1 ON 0,1s? #6; 11 *" sPOSIT 
ION 19,Is? #6; , **" : NEXT 1:1=0 
POSITION 4,2s? #6;''Th[§ HEaKEN 1E" : POS ITIO 
N 7,4s? #6; "frAt^" 

JIFFIES=60*2:GOSUB WAIT:POSITION 4,7s? # 

6 ; 


GOSUB PAGE6 
SETCOLOR 3,1,12 

POSITION 4,8s? #6; "" 

POKE 53279,0 

IF PEEK(53279)=6 THEN 110 
TEMP-PEEK(708):POKE 708,PEEK(709):POKE 
709,PEEK(710) :POKE 710,PEEK ( 711) :POKE 7 
11,TEMP 

JIFFIES-30:GOSUB WAITsGOTO 106 
GRAPHICS 7:POKE 559,0:GOSUB DLIsSETCOLO 
R 0,15,10:SETCOLOR 4,8,12:SETCOLOR 1,12 
,10s SETCOLOR 2, 1,4:POKE 1562,0:POKE RND 
OVR, 0 

RESTORE 20000:POKE 752,1:1=0:? "SCORE: 
<8 SPACES!TIME REMAINING:":? "GOAL: 

<9 SPACES!ROUND:";R; 

IF PEEK(25600)=104 THEN GOTO 119 
READ A:IF A>-1 THEN POKE 25600+I,A:POKE 
712,A:1=1+1:GOTO 113 


REM 
POKE 
POKE 
POKE 
POKE 
REM £ 
POKE 
REM 
POKE 
POKE 
POKE 
POKE 
REM 


PLAYER 0 DOT 


1571,56:POKE 1572,186 
1573,254:POKE 1574,56 
1575,124:POKE 1576,124 
1577,254:POKE 1578,254 


IZE OF PLAYER 


1611,7: POKE “53256,0 


PLOVER 1 DOT 


1581 


POKE 

REM 

POKE 

POKE 

POKE 

POKE 

REM 


129:POKE 1582,129 
1583,255:POKE 1584,126 
1585,90:POKE 1586,60 
1587,66:POKE 1588,60 

1612,7:POKE 53257,0 


PLAYER 2 DOT 


1591 , 
1593, 
1595, 
1597, 


POKE 1613, 


126:POKE 1592,219 
255:POKE 1594,219 
1 02:POKE 1596,60 
126:POKE 1598,231 

7:POKE 53258,0 
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GA 198 
FH 199 
BN 200 
BO 201 
ON 202 
KJ 203 
NB 204 
OL 208 
ID 209 

FO 224 

6B 225 

BE 226 

AD 227 


FP 228 


HN 229 


OB 239 
6N 240 


ON 245 

OD 249 
HA 250 

61 251 

OA 254 
OA 255 

NO 256 

06 259 
BH 260 

BP 261 

CC 262 

DH 263 
HF 269 


REM I>T:Ti?: 

POKE 1601,129:POKE 1602,255 
POKE 1603,255:POKE 1604,90 
POKE 1605,126:POKE 1606,36 
POKE 1607,60:POKE 1608,24 


XZE OF PLRYER 


POKE 1614,7:POKE 53259,0 
GOSUB PMINIT 

POKE 704,14:POKE 705,0:POKE 706,30:POKE 
707,40 

GOSUB XDIRECTION:GOSUB YD 1RECTI ON:POKE 
30731,DIRX:POKE 30735,DIRY 
GOSUB XDIRECTION:GOSUB YD IRECTI ON:POKE 
30732,DIRX:POKE 30736,DIRY 
GOSUB XDIRECTION:GOSUB YD IRECTI ON:POKE 
30733,DIRX:POKE 30737,DIRY 
COLOR 3:PLOT 109,79:DRAWTO 81,55:DRAWT0 
76,55:POSITION 49,79:P0KE 765,3:XI0 18 
, #6,0,0,"S:" 

COLOR 2:PLOT 49,79:DRAWT0 76,55:DRAWT0 
0,55:POSITION 0,79:POKE 765,2:XI0 18,#6 
, 0,0 , " S : " 

PLOT 159,79:DRAWTO 159,55:DRAWTO 81,55: 
POSITION 109,79:POKE 765,2:XI0 18,#6,0, 
0 , " S : " 

REM Kt«ni:hrf:> 

COLOR 3:PLOT 56,51:DRAWT0 2B,30:DRAWTO 
27,30:POSITION 0,51:POKE 765,3:XI0 18,# 
6,0,0,"S:" 

PLOT 62,54:DRAWTO 56,51:DRAWT0 0,51:POS 
ITI ON 0,54:XIO 18,#6,0,0, "S: ” 


IWQUNTRIH | 


PLOT 74,52:DRAWTO 68,47:DRAWT0 67,47:P0 
SITION 59,52:XIO 18,#6,0,0,"S:" 


PLOT 77,54:DRAWTO 74,52:DRAWT0 59,52:P0 
SITION 62,54:XIO 18,#6,0,0 , "S : " 


MQUHTflIH tt 


PLOT 126,49:DRAWTO 101,21:DRAWTO 100,21 
:POSITI ON 70,49:XIO 18,#6,0,0, "S: " 

PLOT 132,54:DRAWTO 126,49:DRAWTO 70,49: 
POSITION 77,54:XIO 18,#6,0,0,"S:" 

REM IsrtHCHiMTm 

PLOT 152,28:DRAWTO 128,11:DRAWTO 127,11 
:POSITI ON 108,28:X IO 18,#6,0,0, "S: " 

PLOT 159,33:DRAWTO 152,28:DRAWTO 10B,2B 
:POSITION 113,33:XIO 18,#6,0,0,"S:" 

PLOT 159,54:DRAWTO 159,33:DRAWTO 113,33 
:POSITI ON 132,54: X IO 18,#6,0,0, "S: " 

PLOT 113,33:DRAWTO 132,54 
REM 
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6K 270 

NH 271 

AL 272 
AL 273 

JF 274 

JI 275 

6C 276 


C6 280 
FO 290 
LB 291 
DA 292 
CL 293 

IH 294 

HO 295 

HH 300 
BL 305 
CK 306 
OE 307 
HH 310 
6L 320 
BD 7800 
AC 7805 


HH 7806 
HP 7807 
JN 7810 

NN 7820 

OO 7830 
AL 7899 
6J 7900 


CB 7905 
AD 79 10 

OJ 7920 
EA 7930 


COLOR 1:FOR X=0 TO 2:PL0T 49+X,79:DRAWT 
O 49+X,45:NEXT X 

FOR X=0 TO 2:PLOT 107+X,79:DRAWTO 107+X 
,45:NE X T X 


IPRHH BORPE 


COLOR 1:PLOT 0,0:DRAWTO 159,0:DRAWTO 15 
9,79:DRAWTO 0,79:DRAWTO 0,0 
RESTORE 10000:FOR 1=0 TO 4:P0KE 40807+1 
,16:NEXT I 

FOR X=0 TO 48 STEP 4:READ A:PLOT 55+X,7 
9:DRAWTO 55+X,A:NEXT X 

PLOT 52,53:DRAWTO 60,49:DRAWTO 66,51:DR 
AWTO 72,51:DRAWTO 79,47:DRAWT0 86,51:DR 
AWTO 92,51:DRAWTO 98,49:DRAWT0 106,53 

POKE 712,140:POKE 54286,192:SCORSAV=0 
REM 

POKE 53248,120:POKE 30722,120 
POKE 1536,54:POKE 30726,54 

POKE 53249,55:POKE 30723,55:POKE 1537,3 
0:POKE 30727,30 

POKE 53250, 190:POKE 1538,30:POKE 30724, 
190:POKE 30728,30 

POKE 53251,120:POKE 1539,30:POKE 30725, 

120:POKE 30729,30 

REM 

POKE 30742,ROUND:POKE RNDOVR,0 
POKE 559,46:JIFFIES = 3*60: GOSUB WAIT 
POKE 18,0: POKE 19,0:POKE 20,0 
REM EEfUMESHIi 
Q=USR(25600) 

REM 

SCORE=10000*(PEEK(40807)-16)+1000*(PEE 
K(40808)-16)+100*(PEEK(40809)-16)+10* ( 
PEEK(40810)-16)+PEEK(40811)-16 
IF SCORE>SCORSAV THEN GOTO 7810 
GOTO 7900 

ROUND=INT(ROUND*0.87) : IF R0UND<15 THEN 
ROUND=15 

SCORSAV=SCORE:GOSUB TUNE:GOSUB NXTROUN 
D 

GOTO 300 


IEMD OF GHM1 


POKE 1562,1:GRAPHICS 18:FDR X=0 TO 3:P 
OKE 53248+X,0:NEXT X:POSITION 2,3:? #6 
;"GAME OVER":GOSUB ENTUNE 
GOSUB PMINIT 

POSITION 1,5:7 #6;"FINAL SCORE =";SCOR 
E 

POSITION 2,8:? #6; 

POSITION 2,9:? #6;" SEM333JEK5" 
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JG 7940 IF PEEK (53279) < >6 THEN 7940 
GO 7945 POKE 53278, 1 

MB 7950 SCDRE = 0: ROUND = 50: POKE RNDOVR,0:R=1:GOT 
0 110 

EC 8000 REM ROUTINE TO LOAD THE P/M 
NJ 80 10 REM HANDLER. 

LL 8015 RESTORE 8100 

KD 8020 FOR 1=0 TO 234 

DB 8030 READ J 

LE 8040 POKE 1536+1, J 

FF 8050 NEXT I 

KO 8060 RETURN 

ID 8100 DATA 0,0,0,0,0 

IE 81 10 DATA 0,0,0,0,0 

IF 812 0 DATA 0,0,0,0,0 

IG 8130 DATA 0,0,0,0,0 

IH8140 DATA 0,0,0,0,0 

PP 8 15 0 DATA 0,0,35,6,45 

BA 8 16 0 DATA 6,55,6,65,6 

IK 8 17 0 DATA 0,0,0,0,0 

IL 8 180 DATA 0,0,0,0,0 

IM 8 19 0 DATA 0,0,0,0,0 

IE 8200 DATA 0,0,0,0,0 

IF 8 210 DATA 0,0,0,0,0 

IG 8220 DATA 0,0,0,0,0 

IH 8230 DATA 0,0,0,0,0 

II 8240 DATA 0,0,0,0,0 

00 8250 DATA 0,0,0,0,104 

AJ 8260 DATA 162,6,160,90,169 

KN 8270 DATA 7,32,92,228,96 

KF 8280 DATA 173,26,6,208,6 

NC 8290 DATA 32,187,6,32,104 

OF 8300 DATA 6,76,98,228,169 

CH 8310 DATA 3,133,203,166,203 

MN 8320 DATA 189,0,6,133,205 

HM 8330 DATA 188,8,6,157,8 

KK 8340 DATA 6, 189,75,6,133 

GH 8350 DATA 204, 138, 10,170,189 

AJ 8360 DATA 16,6,133,206,189 

AM 8370 DATA 17,6,133,207,189 

AP 8380 DATA 27,6,133,208,189 

AN 8390 DATA 28,6,133,209,166 

CO 8400 DATA 204,169,0,145,206 

DC 8 4 10 DATA 136,192,255,240,3 

GA 8420 DATA 202,16,246,164,204 

JO 8430 DATA 177,208,164,205,145 

JF 8440 DATA 206, 136, 132,205, 192 

DJ 8450 DATA 255,240,4,198,204 

DN 8460 DATA 16,237,198,203,16 

BD 8470 DATA 178,96,162,3,173 
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AE 8480 
AN 8490 
JO 8500 
HA 8510 
H6 8520 
BE 8530 
HH 8540 
KC 8550 
GO 8560 
KP 8700 
HH 9000 
IP 9005 

PA 9020 
HL 9030 
HL 9045 
BE 9050 
E6 9056 
PN 9058 
EK 9060 

HP 9100 
KA 91 10 
HB 9120 
JJ 9130 
EA 9140 
IE 9150 
PH 9160 
IP 9170 
EF 9180 
IL 9190 
FI 9200 
ID 9210 
EC 9220 
JC 9230 
FN 9240 
IK 9250 
El 9260 
JJ 9270 
6C 9280 
JB 9290 
EP 9300 
DN 9400 
EC 9420 
KF 9430 
FK 9440 
61 9450 
BN 9590 
KP 9600 


DATA 24,6,133,206,173 
DATA 25,6,133,207,188 
DATA 12,6,189,231,6 
DATA 49,206,145,206,188 
DATA 4,6,189,227,6 
DATA 17,206,145,206,152 
DATA 157,12,6,202,16 
DATA 229,96,2,12,32 
DATA 192,252,242,207,47 
RETURN 

REM P/M INITIALIZATION ROUTINE 

REM IJSLTiVlJ 

112 SPACES > SHT0EH 

I =PEEK(106)-32 

POKE 54279,I 

rem k j!J:ii■.]: mi :w 

POKE 53277,3 
REM 

POKE 623,1 

REM I -1W: Vi * »-*■■» i m =T:1 

02 SPACES > 113133 = 

PMBASE=I*256 
MISSILE=PMBASE+384 
J=INT(MISSILE/256) 

POKE 1560,(MISSILE—J$256) 

POKE 1561,J 
PLAYER0=PMBASE+512 
J=INT(PLAYER0/256 ) 

POKE 1552, (PLAYER0-J*256) 

POKE 1553,J 
PLAYERl=PMBASE+640 
J=INT(PLAYER 1/256) 

POKE 1554,(PLAYER1—J*256) 

POKE 1555,J 
PLAYER2=PMBASE+768 
J=INT(PLAYER2/256) 

POKE 1556,(PLAYER2-J*256) 

POKE 1557,J 
PLAYER3=PMBASE+896 
J=I NT(PLAYER3/256) 

POKE 1558,(PLAYER3—J*256) 

POKE 1559,J 

REM J:t 

FOR J=PMBASE TO PMBASE+1024 

POKE J,0 

NEXT J 

REM 

A=USR(1615) 

RETURN 
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HL 10000 

GH 12000 
NG 12010 
AP 12020 
HP 12030 
FH 12040 
NN 12050 
CE 12060 
CK 12070 
DH 12080 
NH 12090 
EP 13000 

IH 13999 
HF 14000 
HD 14010 
BK 14015 
HD 14020 

BP 14030 

KO 14040 
CK 14050 
ND 14060 

BN 15000 
HE 15010 
BH 15015 
HE 15020 

CJ 15025 

CA 15030 

KP 15040 
CH 15050 
DO 15060 

DL 15070 

CK 1 6000 

DF 16010 
NE 16015 
DK 16020 
NK 16030 
JA 17000 
CC 17010 
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DATA 50,48,48,50,49,48,46,48,49,50,48 

,48,50 

REM 

DL = PEEK(560)+2564PEEK(561 > 

POKE DL+59,141 
RESTORE 13000:1=30464 
READ A:IF A=-l THEN GOTO 12080 
POKE I,A 
1 = 1 + 1 

GOTO 12040 

POKE 512,0:POKE 513,119 
RETURN 

DATA 72,138,72,152,72,169,134,141,10, 
212,141,24,208,104,168,104,170,104,64 
DATA -1 

REM k ill:! =»=1IJ -3 rliHli * * Ma 
SOUND 0,0,0,0 
RESTORE 14060 

READ A,JIFFIES:IF A=-l THEN FOR 1=0 T 
O 3:SOUND I,0,0,0:NEXT I:RETURN 
SOUND 0,A,10,8:SOUND 1,A+1,10,8:SOUND 
2,A+2,10,8:SOUND 3,A+3,10,8 
GOSUB WAIT 
GOTO 14020 

DATA 180,3, 145,3, 121,3,90, 15, 121,3,90 
,25,-1,-1 


IEHPTUME 3 UBROUTINI 


SOUND 0,0,0,0 
RESTORE 15060 

READ A,JIFFIES:IF A=-l THEN FOR 1=0 T 
0 3:SOUND I,0,0,0:NEXT I:RETURN 
IF A = 0 THEN FOR 1=0 TO 3:S0UND 1,0,0, 
0:NEXT I:GOTO 15020 

SOUND 0,A,10,8:SOUND 1,A+1,10,8:SOUND 
2,A+2,10,8:SOUND 3,A+3,10,8 
GOSUB WAIT 
GOTO 15020 

DATA 200,25,0,1,200,20,0,1,200,3,0,1, 
200,20,0,1,170,15,0,1,180,10,0,1 
DATA 180,10,0,1,200,7,0,1,200, 10,0,1, 
200,10,0,1,200,50,-1,-1 

FOR 1=0 TO 4:POKE 40847+I,PEEK(40807+ 
I):NEXT I 
R = R+ 1 

IF R >9 THEN POP -.GOTO WIN 

POKE 40860,R+16 

RETURN 


IHIN RQUTIMI 


POKE 1562,1:GRAPHICS 1B:F0R X=0 TO 3: 
POKE 53248+X,0:NEXT X 
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BP 17020 
CK 17030 
PF 17040 
BN 17050 
CD 17060 
FD 17070 

LH 17080 
PH 17090 
PJ 17091 
Oft 17100 
NJ 17110 

JK 18000 
BO 18020 
HI 18030 

Cl 18035 

LC 18040 
DD 18050 
JC 18060 

AN 19999 
FB 20000 


BC 20010 


HK 20020 

PI 20030 

DD 20040 

ND 20050 

BE 20060 

EE 20070 


POSITION 2,1:? 
POSITION 2,2:? 
POSITION 2,3:? 
POSITION 2,4:? 
SCORE=SCORE+5000 
POSITION 2,6:? #6; 
E 

POSITION 2,8:? #6; 


#6;"YOU HAVE BEATEN" 
#6;"THE DEMONS BACK! 
#6;"YOU GET 5000" 

#6;"BONUS POINTS!!!" 


; SCOR 


'press 


start" 
ag ain 


POSITION 2,9:? #6; "to play 
GOSUB WINSOUND 

IF PEEK(53279)<>6 THEN 17100 
ROUND=50:POKE 559,0:SCORE=0:POKE RNDO 
VR,0:R=1:GOSUB PMINIT:GOTO 110 

rem o i iar.iui[>M;!.njiinrrrii 
RESTORE 18060 

READ A,JIFFIES:IF A=-l THEN FOR 1=0 T 
0 3:SOUND I,0,0,0:NEXT I:RETURN 
SOUND 0,A,10,8:SOUND 1,A+1,10,8:SOUND 
2,A+2,10,8:SOUND 3,A+3,10,8 
GOSUB WAIT 
GOTO 18030 

DATA 200,30, 180,30, 160,30, 150,30, 133, 
30,118,30,105,35,100,70,-1,-1 
REM IShM EHTaOEC W I: W =M i: 

DATA 104,169,0,133,77,174,22,120,32,8 
0,103,173,120,2,201,5,240,27,201,6,24 
0,23,201,7,240,19,201,9,240 
DATA 24,201,10,240,20,201,11,240, 
69,0,141,10,120,240,14,169 
20, 169,0,240,5, 169,255, 141 
DATA 10,120,173,120,2,201,5,240,27,20 
1,9,240,23,201,13,240,19,201,6,240,24 
,201,10,240,20,201,14,240 
DATA 16, 169,0, 141, 14, 120,240, 14, 169, 1 
, 141,14, 120, 169,0,240,5, 169,255, 141, 1 
4,120,173,2,120,24,109,10 
DATA 120,141,2,120,201,48,208,5,169,4 
9,141,2,120,201,200,208,5,169,199,141 
,2,120,173,6,120,24,109,14 
DATA 120, 141,6, 120,201,25,208,5, 169,2 


16,1 

10 , 1 


6 , 


120 , 201 , 


5,169,94,141 
,120,173,2,120,141,0,208 
DATA 173,6,120,141,0,6,162,1,32,52,10 
1,232,2 24,4,208,2 48, 173,23, 120,208, 1 1 
,173,12,208,240,49,32,192 
DATA 101,76,244,100,173,12,208,208,20 


,169,0,141,23,120,141 
,141,2,210,141,3,210,76,244 


0,210,141,1,210 
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Cfi 20080 

6G 200 90 

10 2 0 1 0 0 

PK 20 1 1 0 

CO 2 0 1 2 0 

BF 20 130 

OL 20 1 40 

AF 2 0 15 0 

DH 20 160 

PI 20 170 

AN 2 0 1 8 0 

AO 2 0 1 9 0 

PO 20200 

M20210 

GC 20220 

IG 20230 


DATA 100,169,121,141,0,210,169,168,14 

1.1.210.141.3.210.169.122.141.2.210.1 
69,0,141,21,120,165,20,205 

DATA 26, 120,240,8, 141,26, 120, 169, 1, 14 

1.30.208.162.1.32.39.102.173.21.120.2 
08,14,232,224,4,208,243,173 

DATA 20, 120,24, 105, 1, 141,20, 120,32, 13 

4, 102, 169,0, 141,20, 120,32,89, 103, 173, 

25,120,208,3,76,1,100,96 

DATA 189,2,120,24,125,10,120,157,2,12 

0, 189,6, 120,24, 125, 14, 120, 157,6, 120, 1 

69,0,141,24,120,189,2,120 

DATA 201,49,208, 17, 169, 1, 141,24, 120, 1 

57,10,120,32,72,102,173,19,120,157,14 

, i20, 189,2, 120,201,200,208 

DATA 19, 169, 1, 141,24, 120, 169,255, 157, 

10, 120,32,72, 102, 173, 19, 120, 157, 14, 12 

0,189,6,120,201,24,208,19 

DATA 169,1,157,14,120,173,24,120,208, 

9,32,103,102,173,18,120,157,10,120,18 

9,6,120,201,94,48,19,169 

DATA 255,157,14,120,173,24,120,208,9, 

32, 103, 102, 173, 18, 120, 157, 10, 120, 189, 

2,120,157,0,208,189,6,120 

DATA 157,0,6,96,173,12,208,201,2,208, 

9, 162, 1,32,244, 101, 169,0,240,21, 173, 1 

2,208,201,4,208,9,162,2,32 

DATA 244,101,169,0,240,5,162,3,32,244 

,101,173,20,120,24,105,4,141,20,120,1 

69, 1, 141,23, 120,96, 189, 10 

DATA 120,201,1,208,9, 169,2 55, 157, 10, 1 

20, 169,0,240,9,201,255,208,5, 169, 1, 15 

7, 10, 120, 189, 14, 120,201,1 

DATA 208,9,169,255,157,14,120,169,0,2 
40,9,201,255,208,5,169,1,157,14,120,9 
6,189,2,120,201,89,48,25 

DATA 201,159,16,21,189,6,120,201,62,4 

8, 14, 173,20, 120,56,233,3, 141,20, 120, 1 
69, 1, 141,21,120,96, 173, 10 

DATA 210,41,3,201,0,240, 10,201,1,240, 
12, 169, 1, 141, 19, 120,96, 169,255, 141,19 
,120,96,169,0,141,19,120 

DATA 96,173,10,210,41,3,201,0,240,10, 
201,1,240,12,169,1,141,18,120,96,169, 
255,141,18,120,96,169,0,141 
DATA 18,120,96,173,20,120,201,0,48,85 
,24, 109, 107, 159,201,26, 16,4, 141, 107, 1 
59,96,56,233,10,141,107,159 
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CC 20240 

(IE 20250 

JC 20260 

10 20270 

BN 20280 

F0 20290 

DO 20300 

JD 20310 

GL 20320 

IF 20999 


DATA 173, 106, 159,24, 105, 1,201,26, 16,4 

,141,106,159,96,169,16,141,106,159,17 

3,105,159,24,105,1,201,26 

DATA 16,4,141,105,159,96,169,16,141,1 

05,159,173,104,159,24,105,1,201,26,16 

,4,141,104,159,96,169,16 

DATA 141,104,159,173,103,159,24,105,1 

,141,103,159,96,24,109,107,159,201,16 

,48,4,141,107,159,96,24,105 

DATA 10,141,107,159,173,106,159,56,23 

3,1,201,16,48,4,141,106,159,96,24,105 

,10,141,106,159,173,105,159 

DATA 56,233,1,201,16,48,4,141,105,159 

,96,24,105,10,141,105,159,173,104,159 

,56,233,1,201,16,48,4,141 

DATA 104,159,96,24,105,10,141,104,159 

,173,103,159,56,233,1,201,16,48,4,141 

,103,159,96,169,16,141,103 

DATA 159,141,104,159,141,105,159,141, 

106,159,141,107,159,96,160,0,136,208, 

253,202,208,248,96,169,30 

DATA 56,229, 19,208,6, 169,1, 141,25, 120 

,96,201, 10, 16, 12,24, 105, 16, 141, 127, 15 

9,169,16,141,126,159,96,162 

DATA 0,56,232,233,10,201,10,16,248,24 

,105,16,141,127,159,138,24,105,16,141 

,126,159,96 

DATA -1 
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Hopeful Journey 

Greg Furness 


Maneuver your spacecraft through increasingly more difficult ob¬ 
stacles as you try to complete your mission. Requires a joystick. 

Your mission is to maneuver your spaceship through ten 
increasingly difficult waves of wandering, deadly defense mat¬ 
ter. The defense matter is part of disarrayed defense lines 
which were attacked by enemy warships. The attack left the 
lines perforated and broken up into the floating matter. Your 
ship is radioed, while out on a mission, to tell you of the at¬ 
tack and your federation's dire need of you back on the 
planet. Hence, your "Hopeful Journey" awaits. 

The Journey 

This is an easy game to play. Just use your joystick to move 
down through or around the deadly matter to the gate at the 
bottom of the screen. The game is over when you either touch 
some of the defense matter or complete wave 10 and win. In 
either case you'll receive a final score. Wave 10 is solidly filled 
with defense matter and is extremely difficult to penetrate. 

The track at the bottom of each screen is the transporter bar 
which beams you to the next wave. 

Hopeful Journey 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

NC 10 DIM A*(60) ,Bt(8) ,Ct(8) ,Dt(8) ,Et ( 1 > 

6B 20 A* ( 1,60) = ”hhh JHECKDBCBJSEKfl} C£>QJHEIh JHE 
{K BELL > DC3ICCE> C5C 2 [I> EUi J HEf G > HZHECO 

<■, >Eh JECBJESliKtO { , >E' C2 , > " 

AD 30 Bt="Th[a ENdO" 

D1 40 C*="YotE SlnB" 

ID 50 BOSUB 590 
HH 60 BOSUB 420 
CO 70 Q = 6 : L= 1 : BOTO 390 
HL 80 BOSUB 210 

BA 90 J = TIME: POKE 559,34:P0KE 559,62:P0KE 5327 
8 ,0 : POKE 204,A + 4:POKE 203,0:POKE 205,120 
AC 95 POKE 53278,0 
HM 100 REM **MAIN LOOP** 

CM 110 Z = USR (ADR (At) , STICK (0) ) 

NA 120 A=INT(RND(0)*19):B=INT(RND(0)*O):C=INT( 
RND(0)*2) 

CO 130 Z = USR (ADR (At) , ST,ICK (0) ) 
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GA 140 IF C = 0 THEN E$ = qfHR$(32) 

6D 150 IF C=1 THEN E*=CHR$<42) 

CE 160 POSITION A , B : ? #6;Ei:S0UND 0, A + B, 10, 15: 
SOUND 0,0,0,0 

DC 170 Z = USR (ADR (A$) , STICK (0) ) 

AO 1S0 IF PEEK (53252) < >0 THEN 330 
GF 1 90 GOTO 1 1 0 

OG 200 REM **DRAW PLAYFIELD** 

HG210 GRAPHICS E:POKE 559,0:POKE 756,MEM/256: 

POKE 704,15:POKE 70B,196:POKE 710,66 
HA 220 IF L = 10 THEN POKE 710,100 

LA 230 FOR Y = 0 TO V STEP Q: FOR X = 0 TO 19:P0SIT 
ION X,Y:? #6;"*";:NEXT X:NEXT Y 
JG 240 FOR X =0 TO 19:P0SITI0N X,0:7 #6;"£3":NEX 
T X 

KO 250 REM **SET-UP PLAYER** 

(A260 A = PEEK ( 1 06 ) -8 : POKE 542 79 , A : P MB AS E = A * 25 6 
HO 270 FOR I=PMBASE+1024 TO PMBASE+1280: POKE I 
,0:NEXT I:POKE 53277,2:P0KE 53248,120 
LO 280 RESTORE 290:FOR I =PMBASE+1024 + 20 TO PMB 
ASE+1280:READ H:IF H<>0 THEN POKE I,H:N 
EXT I 

PN 290 DATA 28,62,107,62,28,0 
AK 300 REM * * T I M E KEEPER** 

EC 310 TIME = (PEEK (20) +PEEK ( 19) *256 + PEEK ( 18) *25 
6*256) /6 0:RETURN 
CL 320 REM * *CHECK COLLISION** 

FO 330 POKE 53277,0: IF PEEK (53252 )= 1 THEN E=l: 

1=255:0=5:D$=B$:GOTO 510 
JF 340 REM * *NE X T WAVE** 

BP 350 FOR T= 1 TO 15:F0R R = 64 TO 78:S0UND 0,R, 
10,10:POKE 710,R:NEXT R:NEXT T:SOUND 0, 
0,0,0 

FF 360 IF Q >2 THEN Q = Q-1 
GN 370 L = L+ 1 : IF L=10 THEN Q= 1 

HG 380 IF L = 1 1 THEN E = 255: 1 = 1 : 0 = -l : D$ = C$: GOTO 
5 1 0 

OH 390 GRAPHICS 17:P0KE 756, MEM/256 
PE 400 POSITION 7,9:? #6;"WAVE ";L:F0R T=1 TO 
5:FOR R=0 TO 255 STEP 5:P0KE 708,R:NEXT 
R:NEXT T:GOTO 80 
BI410 REM * * S K I LL LEVEL** 

LK 420 GRAPHICS 0:POKE 710,0:POKE 752,1:P0KE 7 
56,MEM/256 

PN 430 OPEN #1 , 12,0, "K: " 

KH 440 POSITION 3,10:? "WOULD YOU LIKE TO PLAY 
SKILL LEVEL":POSITION 17,11:? "O OR S 

? " 

DK 450 GET #1,A 

JL 460 IF A = ASC(" 1" ) THEN V = 9 : 0= 1 0 : E= 1 8 : GOTO 4 
90 
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MJ 470 IF A = flSC ( "2" ) THEN V = 2 1 : 0 = 22 : E= 1 7 : GOTO 
490 

60 4S0 GOTO 450 

IB 490 CLOSE #1 : RETURN 

(U 500 REM **FINISH ROUTINE** 

KL510 FOR T=1 TO 3:F0R R = E TO I STEP 0:S0UND 
0,R,10,10:NEXT R:NEXT T:SOUND 0,0,0,0 
Cl 520 GOSUB 310:K = TIME:T=INT(K-J) : SCORE = L*100 
0-T*10:IF SCORE>HI THEN HI=SCORE 
0D 530 GRAPHICS 17:P0KE 756,MEM/256 
OB 540 POSITION 4,3:? #6: ";HI:POSITI 

ON 5,5:? #6; " I I & 1 2 ; ";SCORE 
EH 550 POSITION 6,10:? #6; D$: POSITION 4,17:? # 
6; "PRESS start ": POS ITION 3,19:? #6;"iIT 
IIEET AGAIN" 

CE 560 IF PEEK (53279) < >6 THEN 560 

DL 570 GOTO 60 

CD 580 REM * *CHAR SET** 

EC 590 POKE 106, PEEK ( 106)-32: GRAPHICS 0:POKE 5 
59,0 

GM 600 MEM= (PEEK ( 106)+28) *256 

ME 6 1 0 FOR SET = 0 TO 1023:POKE MEM + SET, PEEK ( 573 
44+SET):NEXT SET 
Eft 620 POKE 756,MEM/256 

flfl 630 RESTORE 640:FOR SET = 0 TO 7: READ CHAR:PO 
KE 80+MEM+SET,CHAR:NEXT SET 
J6 640 DATA 24,36,66,129,129,66,36,24 
MG 650 REM * * T I TLE PAGE** 

DK 660 GRAPHICS 17:P0KE 559,34:P0KE 708,0:POKE 
756,MEM/256 

DJ 670 POSITION 3,8:? #6; "HOPEFUL JOURNEY" 

BN 68 0 POSITION 3,13:? #6; "BY GREG FURNESS" 

FJ 690 FOR R = 2 TO 15:P0KE 708,R:FOR T=1 TO 50: 
NEXT T:NEXT R 

BO 700 FOR R= 15 TO 0 STEP -l:POKE 708,R:FOR T = 
1 TO 50:NEX T T:NEXT R:RETURN 
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Hoppo 

Ron Szabo 


Can you stay a safe distance from Spike and Grimo while trying to 
restore power to the islands of Zabonia? Your pursuers are fast 
and never get tired of the chase. "Hoppo" is a game for one player 
with a joystick. 

It's the twenty-third century and you're in the land of 
Zabonia. You are Hoppo, the champion of the Zabonians. The 
evil Grimo has destroyed the world's power plants. Since 
Zabonia is a world of islands, your mission is to hop from is¬ 
land to island and restore partial power to 54 of them. If you 
succeed, you will be transported to another part of the world 
to provide partial power for 54 other islands, but your task is 
not as easy as it seems. You must avoid the evil Grimo and 
his treacherous counterpart, Spike. When you reach the third 
level, you must also avoid the opening vacuum pits. If you 
survive this level, you'll receive a bonus life. 

Island Hoping 

"Hoppo" is a game for one player. To play, plug a joystick 
into port 1. Run the program and wait for about one minute 
while the program initializes (be sure to save a copy before 
trying to run it). When the animated title screen appears, you 
may select the speed and the level at which you wish to be¬ 
gin. To select the speed, move the joystick to the left. To select 
the level, move the joystick to the right. When you're ready to 
play, press the fire button. 

You begin on the lower-right island. You can move right 
and left, up and down, but not diagonally. 

There are four ways in which you can lose a life. The first 
way is by contacting Grimo. He'll push you off the island 
you're sharing. Contacting Spike is just as bad. He causes 
Hoppo to cry out. The third way is by falling through one of 
the vacuum pits. They will suck Hoppo into another dimen¬ 
sion. Finally, don't let Hoppo fall off the edge of the world. 
You will fall into the twilight zone. 

You receive 10 points for every island you restore power 
to. If power is restored to 54 islands, you receive a bonus of 
100*L, where L is the level completed, and you then advance 
to the next level. You start out with three lives and gain a bo¬ 
nus life after the third level. 
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Hoppo 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

HE 10 DIM SPD$<4):GOSUB 1000:BOSUB 4000 
HA 20 POKE 77,0: S = PEEK (632) : IF S=15 THEN SOTO 
30 

BG 22 IF S=ll THEN X=X-20:GOTO 30 
OL 24 IF S = 7 THEN X = X + 20:EOTO 30 
HE 26 IF S = 14 THEN Y = Y-16:G0T0 30 

JN 28 IF S= 13 THEN Y = Y+16 

El 30 POKE PL X + 1 , X : POKE PL Y+1 , Y : SOUND 0,120,10 
, 8 

DG31 IF Y > 164 OR X>172 OR X<72 OR Y<36 THEN G 
OTO 920 

NO 35 IF X1 = X THEN 5=1:G0T0 42 

OE 3 7 IF X 1 >X THEN S = 4:B0T0 42 

DD 39 S = 7 

KJ 4 2 IF Y1 = Y THEN 50 

FO 44 IF Y1 >Y THEN S = S+l:GOTO 50 

KK 46 S = S + 2 

HN 50 ON S GOTO 900,51,52,53,150,150,54,150,15 
0 

CE 5 1 Y1=Y1-16: GOTO 60 

CD 52 Y1=Y1 + 16: GOTO 60 
BP 53 X 1 = X 1-20: GOTO 60 
BO 54 X 1 = X 1+20: GOTO 60 

PI 60 POKE PLX,X1:P0KE PLY, Yl:SOUND 0,240,10,8 
ftl 61 IF X1=X AND Y1=Y THEN GOTO 900 
EN 65 PC= ( (Y-28) *5) + ( (X-48) /4) 

PJ 67 IF L >2 THEN GOSUB 200 

10 72 IF PEEK (SC + PC) =99 THEN POKE SC + PC,225:SC 

R=SCR+10:POSITION 9,20:? SCR;:LET COM=CO 
M+1 : IF C0M = 54 THEN GOTO 500 

FG 74 IF D< 1 OR D>5 THEN X 2= ( ( I NT ( RND ( 0 ) * 6 ) * 20 

)+ 72) :Y2= ( (INT(RND(0)*9)*16)+36) :POKE PL 
X+2,X2:POKE PLY+2,Y2:D=0 
GP 76 D = D+1: IF X2=X AND Y2 = Y THEN GOTO 940 
JK 78 IF PEEK (SC + PC) =101 THEN GOTO 920 


CO 8 0 

SOUND 0,0,0 

,0:FOR 1= 

1 TO 

SPD : 

NEXT I:GOTO 


20 






LJ 150 

I = I NT(RND(0) *2) 

: IF 

( S = 5 

OR S 

=6) AND 1=1 


THEN GOTO 

53 





AE 151 

IF (S=8 OR 

S = 9 ) 

AND 

1 = 1 

THEN 

GOTO 54 

HE 152 

IF (S=5 OR 

S = 8 ) 

AND 

1=0 

THEN 

5 1 

DJ 153 

GOTO 52 






6L 200 

IF D >0 AND 

D < 6 

THEN 

RETURN 


BA 202 

LD=L—1:IF 

L D >9 

THEN 

LD = 9 




HB 204 FOR 1 = 1 TO LD : TP ( I ) = ( ( I NT ( RND ( 0 ) * 6 ) * 5 ) + 
6) + ( (I NT (RND(0) *9) #80)+40) 
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MJ 206 POKE SC + TP< I ), 101:POKE S C + T P ( I > + 1 , 1 0 2 : N 
EXT I 

FI 208 IF TP ( LD+ 1 ) =0 AND D = 0 THEN GOSUB 220:RE 
TURN 

CD 2 1 0 FOR 1 = 1 TO LD : POKE SC+TP<LD+I>,99:POKE 
SC + TP ( LD+I ) +1, 100:NEXT I 
OP 220 FOR 1 = 1 TO LD: TP (LD+I ) =TP ( I ) : NEXT I : RET 
URN 

EH 500 SOUND 0,0,0,0: BONUS = L* 100: POSITION 13,2 

NUS: " ;BONUS; : POSITI ON 9,20 
FB 502 SCR = SCR + BONUS: ? SCR;:FOR 1 = 1 TO 200:SOU 
ND 0,RND(0)*40+20,10,8:NEXT I 
IK 504 SOUND 0,0,0,0 : L = L+ 1 : LET COM = 0:D = 0:IF L = 
4 AND LVL< >3 THEN LIVES = LIVES+1: POSITI 0 
N 13,23:? ; 

CB 505 IF L = 4 AND LVL<>3 THEN FOR 1 = 1 TO 100:S 
OUND 0,RND(0) *40, 10, 8 :NEXT I :SOUND 0,0, 
0,0 

CO 506 IF L > 1 0 THEN L=10 
HH 508 GOSUB 780:GOTO 800 

IP 700 FOR 1 = 1 TO 5 0: NEXT I : L I VES = L I VES- 1 : I F L 
IVES = 0 THEN POSITION 14,21:? "GAME OVER 
" 5 :SOUND 0,0,0,0:GOTO 750 
PO 702 POSITION 26,20:? "L I VES= " ; : GOSUB 780:? 

N$:X=172:Y=164:Xl=72:Yl=36:GOSUB 760 
HP 703 FOR 1 = 1 TO 20:TP<I)=0:NEXT I : D = 0 
HI 704 POKE PLX , X 1 : POKE PLY,Yl:POKE PLX+1, X:PO 
KE PLY+l,Y:GOTO 20 

EG 750 POSITION 26,20:? "LIVES={4 SPACES)"; :PO 
SITION 8,22:? "TO PLAY AGAIN,PRESS UT-ra 

ii . 

HJ 7 51 IF PEEK (644) = 0 THEN GOSUB 8015:POKE 559 
,0:SCR=0:L=LVL:LIVES=3:D=0:LET COM=0:N$ 
=" b b b " :POKE PLX + 2,0:GOTO 800 
HO 754 GOTO 751 

IJ 760 IF TP (LD+1 ) = 0 THEN RETURN 
DB 762 FOR 1 = 1 TO LD : POKE SC + TP < L D+ I ) , 99 
BF 764 POKE SC + TP ( LD + I ) + 1 , 1 00 : NE X T I 
ID 766 RETURN 

AC 780 ON LIVES GOTO 7 8 1,782,783,784 
AP7B1 N$ = " b <6 SPACES)":RETURN 
HC 782 N*="b b C4 SPACES) ": RETURN 
NF 783 N*="b b b ": RETURN 
DI 784 Ni =" b b b b" : RETURN 

PN 800 GRAPHICS 0:SETCOLOR 2,0,0:POKE 752,1:P0 
KE PLX,0:POKE PLX+1,0:POKE PLX+2,0:DL=P 
EEK(560)+256*PEEK(561):POKE DL+3,68 
HN801 FOR 1=0 TO 18:P0KE DL + 6 +I , 4 : NE X T I : SETC 
OLOR 1,9,4 
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U802 POKE 756,CADR/256:X=172:Y = 1 6 4 :Xl=72:Yl= 
36:FOR 1=1 TO 20:TP(I)=0:NEXT I 
PG 804 ? : FOR 1 = 1 TO 9:? "{4 SPACESJcd 

C3 SPACESIcd <3 SPACES}cd <3 SPACESJcd 
13 SPACES}c d{3 SPACES}cd" 

JP 806 ? : NE X T I 

LE 8 08 POSITION 3,20:7 , ’SCORE=" ;SCR;: POSITION 
26,20:7 "LIVES=";N$ ; 

CL 8 1 0 SC = PEEK (88) +256*PEEK (89) 

ED 8 1 2 POKE 559,62 : POKE PLX,72:P0KE PLY,52:P0K 
E PLX+1, 172:POKE PLY+1, 132:POKE 752,1 
0C814 POKE 559,62: IF SRT=1 THEN SRT = 0: RETURN 
DKB16 BOTO 20 

AC 900 POKE PLY+1 , Y + 8: FOR 1 = 1 TO 5:F0R OUCH=l 
TO 15:POKE PLY,Y1-3:SOUND 0,255,8, 15 : FO 
R D=1 TO 2:NEXT D 

BB 902 SOUND 1,40-OUCH , 1 0 ,8 : POKE PLY,Yl:FOR D = 
1 TO 2:NE X T D:SOUND 0,0,0,0:POKE 705,64 
+OUCH:NEXT OUCH:NEXT I 
PB 904 Y = Y+16: POKE 705,202:GOTO 920 
CN 920 FOR I = Y TO 244 STEP 16:P0KE PLY+1, I : FOR 
D = 0 TO 4:SOUND 0, I-( 4*D) , 10, 8 :NEXT D:N 
EXT I:SOUND 0,0,0,0:POKE PLX+1,0 
GM 922 DUR = 6: PIT = 20: SOUND 2,7 5 ,8 , 1 5 : I C R = 0.79+ D 
UR/100:V1=15:V2=15:V3=15 
PB 924 SOUND 0 , P I T , 8 , V 1 : SOUND 1 , P I T+ 20 ,8 , V2 : S0 
UND 2,PIT+50,8,93 

CE 926 Vl=Vl*ICR:V2=V2*(ICR+0.05) :93 = V3*(ICR + 0 
.08) : IF V3 >1 THEN 924 

JI 928 FOR 1=0 TO 2:S0UND I,0,0,0:NEXT I:IF Z = 
1 THEN Z=0:RETURN 
GM 930 GOTO 700 

MA 940 POKE PLX + 2,0: FOR 1 = 1 TO 10:FOR OUCH = 0 T 
0 15:POKE 705,64+OUCH:SOUND 0,40-OUCH-I 
, 10,8:NEXT OUCH:NEXT I 
DL 942 SOUND 0,0,0,0:POKE 705,202:GOTO 700 
IC 999 END 

LH 1000 PRINT " (CLEAR) CDOWNI INITIALIZING" 

CJ 1001 PRINT " 1DOWNIPLEASE WAIT..." 


DH 

10 10 

FOR 
T I 

1=1536 

TO 

1706:READ 

A:POKE I 

EN 

1020 

FOR 

1=1774 

TO 

1787:POKE 

I,0:NEXT 


NC 1030 PM = PEEK ( 106)-16: PMB ASE = 2 56 # PM 
PO 1040 FOR I=PMBASE+1023 TO PliB ASE + 2047: POKE 
1,0:NEXT I 

KA 10 50 FOR I =PMBASE+ 1 025 TO PMBASE+ 1 030 : READ 
A:POKE I ,A:NE X T I 

LE 1060 FOR I=PMBASE+1281 TO PMBASE+1 288 : READ 
A:POKE I ,A:NE X T I 
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LI 1065 

LF 1070 
6 P 10B0 
GH 1 090 

HI 1100 
FP 1110 
CK 1120 

LG 1130 
K6 114 0 
PI 2000 
GP 20 10 


DG 2020 

EC 2030 

ED 2040 

PE 2050 

KM 2060 

NE 2 0 7 0 

GL 2080 

CG 2090 

OF 2 100 
OC 3000 
JD 300 1 
JN 3002 
JF 3003 
HI 3010 
OP 3020 
HK 3030 
KF 4000 

JN 40 1 0 
KC 4020 

HP 4040 

FK 4060 

DD 4070 


FDR I=PMBASE+1537 TO PMBASE+1544:READ 
A:POKE I,A:NEXT I 

POKE 704,40:POKE 705,202:POKE 706,255 

PLX=53248:PLY=1780:PLL=1784 

POKE 623,1:POKE 1788,PM+4:POKE 53277,3 

:POKE 54279,PM 

X = USR(1696) 

POKE PLL, 6 :POKE PLL+1,8:P0KE PLL+2,8 
POKE PL X,0:POKE PLY,0:POKE PLX + 2,0:POK 
E PLY+2,0 

POKE PLX+1,0:POKE PLY+1,0 
RETURN 

REM * VBLANK ROUTINE DATA * 

DATA 162,3,189,244,6,240,89,56,221,240 
,6,240,83,141,254,6,106,141 

DATA 255,6,142,253,6,24,169,0,109,253, 

6.24.109.252.6.133.204.133 

DATA 206,189,240,6,133,203,173,254,6,1 

33,205,189,248,6,170,232,46,255 

DATA 6 , 144, 16, 168, 177,203, 145,205, 169, 

0,145,203,136,202,208,244,76,87 

DATA 6 , 160,0, 177,203, 145,205, 169,0, 145 

,203,200,202,208,244,174,253,6 

DATA 173,254,6,157,240,6,189,236,6,240 

,48, 133,203,24, 138, 141,253,6 

DATA 109,235,6, 133,204,24, 173,253,6, 10 

9.252.6.133.206.189.240.6.133 

DATA 205,189,248,6,170,160,0,177,203,1 

45,205,200,202,208,248,174,253,6 

DATA 169,0,157,236,6,202,48,3,76,2,6,7 

6,98,228,0,0,104,169 

DATA 7,162,6,160,0,32,92,228,96 

REM *{3 SPACES!PLAYER DAT A C 3 SPACES!* 

REM * LINE 30 10 —GRI MO * 

REM * LINE 3020—HOPPO * 

REM * LINE 3030-SPIKE * 

DATA 130,186,214,56,68,56 
DATA 108,40,124,84,124,84,6B,56 
DATA 8,8,8,28,28,62,62,28 

POKE 106, (PEEK ( 106) -5) :SRAPHICS 0:POKE 
752,1:SETCOLOR 2,0,0:GOSUB 7000 
CADR=256*(PEEK(106)+1) 

FOR 1=0 TO 1023:POKE CADR+I,PEEK ( 57344 
+ I ) :NEXT I 

FOR 1=0 TO 47:READ X:POKE 776+CADR+I,X 
:NE X T I:GOSUB 8000 

DATA 15,63,255,255,255,255,63,15,108,4 
0,124,80,124,80,68,56 

DATA 10,42, 170, 170, 170, 170,42, 10, 160, 1 
68 , 170, 170, 170, 170, 168, 160 
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IE 4080 
Gil 5000 
AK 7000 

MG 7010 

HA 7020 
Cl 7030 

FI 7040 

KH 7050 
PH 8000 

JL 8002 

AA 8004 

FI 8006 

JH 8008 

HL 80 1 0 

PK 80 1 2 

PK 8014 
FP 8015 
NO 80 1 6 

HH 80 1 7 


DATA 10,40, 160, 128, 128, 160,40, 10, 160,4 
0,10,2,2,10,40,160 

SCR=0:LET COM=0:DIM N$(10),TP(20): SRT = 
l:N*="b b b":L I V E S = 3 :GOTO 800 
? :? :? :? :? :? :? "{3 SPACESJH 
£3 SPACESJH 000 PPPP PPPP 
C3 SPACESJOOO" 

FOR 1=1 TO 2:? " £3 SPACESJH£3 SPACESJH 
0£3 SPACESJO P £ 3 SPACESJP P 
£3 SPACESJP 0 £ 3 SPACESJO":NEXT I 
? "£3 SPACESJHHHHH 0£3 SPACESJO PPPP 
PPPP 0 £ 3 SPACESJO" 

FOR 1=1 TO 2:? "£3 SPACESJH£3 SPACESJH 
0 £ 3 SPACESJO P £ 5 SPACESJP£5 SPACESJO 
£3 SPACESJO":NEXT I 

7 " £ 3 SPACESJH£3 SPACESJH OOO P 
£5 SPACES J P £ 6 SPACESJOOO" 

RETURN 

GRAPHICS 0:SETCOLOR 2,0,0:POKE 752,1:D 
L=PEEK(560)+256*PEEK(561):FOR 1=20 TO 
22:POKE DL+I,4:NEXT I 

GOSUB 7000:POKE 756,CADR/256:SETCOLOR 
1,9,4:? :? :? :? "£4 SPACESJcd 

£3 SPACESJ cd £3 SPACESJcd£3 SPACESJcd 
£3 SPACESJ cd £3 SPACESJcd" 

POKE 559,62:POKE PLY+1,156:POKE PLX+1, 
72:SOUND 0,120,10,8:SC=PEEKC8S)+256*PE 
EK(89):POKE SC+646,225 

FOR 1=1 TO 10:NEXT I:SOUND 0,0,0,0:FOR 
1=0 TO 50:NE X T I:POKE PL X+1,92:SOUND 
0,120,10,8:POKE SC+651,225 
FOR 1=1 TO 10:NEXT I:POKE PLY,156:P0KE 
PLX,72:SOUND 0,240,10,8:FOR 1=1 TO 10 
:NE X T I:SOUND 0,0,0,0 

FOR 1=1 TO 50:NEXT I:POKE PLX+1,112:P0 
KE SC+656,225:SOUND 0,120,10,8:FOR 1=1 
TO 10:NEXT I 

POKE PLX,92:SOUND 0,240,10,8:FOR 1=1 T 
0 10:NEXT I:SOUND 0,0,0,0:FOR 1=1 TO 3 

5:NEXT I:POKE SC+661,101 

POKE SC+662,102:FOR 1=1 TO 15:NEXT I:P 
OKE PLX+1,132:Y=164:Z=1:GOSUB 920 
FOR 1=20 TO 22:POSITI ON 0,I:PRINT " 

£34 SPACESJ":NEXT I:SPD=1:SPD*="SL0W" 
POSITION 4,21:7 "SPEED=SLOW";:SPD=1:PO 
SITION 27,21:7 "LEVEL=1";:LVL=1:POSITI 
ON 11,22:7 "PRESS fSTYla TO START" 
OSS=STICK(0):IF 0SS=11 THEN SPD=SPD+1: 
GOSUB 8100 
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CG 8018 IF 0SS = 7 THEN LVL=LVL+1:IF LVL>9 THEN 
L VL= 1 

KL 8 019 FOR 1 = 1 TO 10:NEXT I: IF STRIG<0>=0 THE 
N 60T0 8050 

DM 8020 POSITION 10,21:? SPD$ ; : POSITION 33,21: 
? L VL :GOTO 8017 

FF 8050 ON SPD GOTO 8 052,8054,8056 
MF 8052 SPD=100: GOTO 8060 
JL 8054 SPD = 50: GOTO 8060 
61 8056 SPD = 0: GOTO 8060 

CN 8060 POKE PL X , 0: POKE PLX + 1,0 : L = LVL : RETURN 

DE 8 100 IF SPD >3 THEN SPD=1 

EN 8102 ON SPD GOTO 8104,8106,8108 

LI 8104 SPD$=" SLOW" : RETURN 

HJ 8 10 6 SPD* = "MED. ": RETURN 

KF8108 SPD$= " FAST ": RETURN 

KK8110 RETURN 

ftL 10000 GOSUB 5000:GOTO 20 
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Termite 

Frank Martone 


Using redefined characters, " Termite" is a good example of how 
graphics and sound can enhance the thrill and excitement of com¬ 
puter games. Requires a joystick. 


Tunnel your way through a delicious piece of wood. Munch 
on knots, spider eggs, and magical goblets. Beware, though, of 
the deadly spider. This crafty arachnid seeks you out. 

Your termite has one powerful weapon against the spider— 
thought transfer. When in trouble, merely press the joystick 
button and you will transport yourself to a safe location. 

Doing this, however, will cost 50 points. 

You have only one minute to munch as many tasty ob¬ 
jects as you can before advancing to the next screen. When the 
minute is up, you'll be greeted by a song and a friendly mes¬ 
sage. You'll start out with three termites; when one is killed, a 
series of beeps will tell you how many you have left. 

Here's the scoring: magical goblets, 300 points, eggs, 100 
points, and knots, 10 points. At the end of the game the final 
score will be given. 

"Termite" becomes more difficult as the game progresses. 


Termite, the Program 

Termite was programmed in graphics 1, using a redefined 
character set. A redefined character is simply your own cus¬ 
tomized character. You can change letters and numbers into 
spaceships or creatures by rearranging the 8X8 grid of the 
character you wish to change, then POKEing into screen mem¬ 
ory to display that character: 

SCR = PEEK(88) + 256*PEEK(89) 


For a more detailed explanation of this technique, look at 
pages 108-126 of COMPUTEl's First Book of Atari Graphics. 

Program explanation: 

Lines Description 

4-14 Set up screen display 

19-75 Main loop moves termite and spider; uses LOCATE 

statement to return ATASCII codes to detect collisions 
299-316 Termite killed; make explosion, decrement number of 

termites, reset termite and spider positions 
1000-1200 Set up redefined character set 
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Lines 

3000-3008 

5000-6000 

7000-7210 

10000-10010 


Description 

Title page waits till START is pressed to begin 
Game over; print score 

When minute is up, play music and print message 
Thought transfer: erase previous termite and re¬ 
position termite in random spot 


Using LOCATE for Collision Detection 

The LOCATE statement works differently on graphics modes 
0-2 than on modes 3-8. In graphics modes 0-2, the ATASCII 
code of the character that occupies that space is returned. In 
modes 3-8, the color of a character is returned. Look at this 
example: 

LOCATE x,y,what 

where x and y are the variables of your player's column and 
row; ivhat is the variable in which either the color or the 
ATASCII code will be stored, depending on the graphics mode 
you're working in. If what equals something other than your 
character, a collision has been made. Use IF-THEN statements 
to accomplish this. 

The Spider Knows 

The termite and the spider both have column and row co¬ 
ordinates. The horizontal coordinate is followed by the verti¬ 
cal. For the termite, they are X and Y; for the spider, they are 
SI and S2. Lines 64-67 of the program use IF-THEN state¬ 
ments to compare the positions of the spider and the termite. 

If the spider's horizontal coordinates are more than the ter¬ 
mite's, the horizontal coordinate of the spider must be sub¬ 
tracted. This works the same way on the vertical axis; 
therefore, the spider's position is updated by your location on 
the screen. 

Termite 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

BO 2 REM 

H6 3 60SUB 3000 

CJ 4 GRAPHICS 1 + 16: SETCOLOR 0,8 , 1 0 : SETCOLOR 2, 
RND(0)*14,9:TERM=3:SC=0:SL=1:SM=30:KNS=60 
:EG=10:G0B=12 
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KF 5 GRAPHICS 1 + 1 6 : SETCOLOR 0 , 8 , 10: SETCOLOR 2, 
RND(0)*14,9:TERM=3:SC = 0: SL=1 : SM = 30: KNS=60 
:EG=10:G0B=12:GOSUB 1000 

IK 6 POKE 756, CH/256 

BL 7 SCR = PEEK (88)+256*PEEK (89) 

IF 8 FDR G = 2 TO 22:P0SITI0N 0,G:? # 6 ; " 

eBHHHHHHBHB" 

EG 9 SOUND 0, G, 10, 10: SOUND 0,0,0,0:NEXT G 

DM11 FOR KNOTS= 1 TO KNS : K 1 = I NT ( RND ( 0 ) * 1 9 ) : K2 = 
INT(RND(0)*17)+3:P0SITIQN K1,K2:? # 6 ;"£" 
:SOUND 0,50,10,10 

DJ 12 FOR H J = 1 TO 2:NEXT HJ:SOUND 0,0,0,0:NEXT 
KNOTS 

AH 1 3 FOR EGGS=1 TO EG : E 1 = I NT ( RND ( 0 ) * 1 9 ) : E2= I N 
T(RND(0)*17)+3:POSITION E1,E2:? # 6 ;"t":S 
OUND 0,200,10,10 

AH 14 FOR H J = 1 TO 25:NEXT HJ:SOUND 0,0,0,0:NEX 
T EGGS 

JC 15 FOR C=1 TO GOB: POSITION RND ( 0 ) * 1 8 , RND ( 0 ) 
*17+3:? # 6 ;"a":SOUND 0,C,10,10:SOUND 0,0 
,0,0:NEXT C 

DB 16 X=9:Y=10:S1 = 19:S2=15:V=10:TIME = 0 

J 6 17 POKE SCR + X + 20*Y, 10: FOR G=1 TO 80:SOUND 0 
,G,0, 10:NE X T G:SOUND 0,0,0,0 




E6 20 SCR = PEEK (88)+256*PEEK (89) 

HD 25 TP = SCR + X+20*Y 

ID 26 ST = STICK (0) : TR = STRIG (0) : SETCOLOR 3,PEEK( 
53770),14 

NC 30 POKE WS, 58: POSITION 3,0:? #6 ; " a" ; SC ; " 

:POSITION 16,0:? # 6 ;"*";TERM 
6 H 35 SOUND 1,0,0,0: TIME = TIME+1 
CM 36 IF TIME>170 THEN GOTO 7000 
FJ 37 FOR W= 1 TO 10:NEXT W:POKE WS,0 
FI 38 IF S T= 1 4 THEN POKE TP,0:Y = Y-1:V= 1 2 
Eh 40 IF ST= 1 3 THEN POKE TP,0:Y = Y+1:V= 1 0 
CA 4 2 IF ST = 7 THEN POKE TP , 0 : X = X + 1 : V= 1 1 
KJ 43 IF TR = 0 THEN GOSUB 10000 
FC 44 IF S T= 1 1 THEN POKE TP , 0 : X = X - 1 : V= 1 4 
OK 47 LOCATE X,Y,BC:IF BC = 247 THEN FOR W=15 TO 
0 STEP -2:SOUND 0,50,10,W:NEXT W:SC=SC+ 
10 

EB 4 8 IF BC= 1 16 THEN POSITION X,Y:? #6;"S";:F0 
R R = 40 TO 1 STEP -l:SOUND 0,R,2, 1 4:NEXT 
R:SC=SC+100 

AI 49 IF BC = 97 THEN POSITION X,Y:? #6;"E":F0R 
W=30 TO 0 STEP -1:SOUND 0,W,10,10:NEXT W 
:SC=SC+300 

JB 50 POKE SCR + X + 20*Y, V 

K051 IF X > 1 8 THEN POKE S CR + X+ 20 * Y , 0 : X = X - 1 
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HD 52 IF X<1 THEN POKE S CR +X + 20 * Y , 0 : X = X + 1 
HI 53 IF Y< 2 THEN POKE SCR +X+20*Y,0:Y = Y+1 
CP 54 IF Y >22 THEN POKE SCR+X+ 20 * Y , 0 : Y = Y-1 
CA 60 WS=SCR+S1+20*S2 

DP 61 IF X = S1 AND Y = S2 THEN GOSUB 300 
LL 62 POKE WS, 185: FOR S=1 TO 10:NEXT S:SOUND 0 
, 0,0,0 : I F L=35 THEN SL=2 
FI 63 POKE WS, 0: L=INT (RND (0) *70) : IF L<SM THEN 
GOTO 75 

FD 64 IF S1>X THEN S1=S1-SL 

FA 65 IF Si<X THEN S1=S1+SL 

FJ 66 IF S2 > Y THEN S2 = S2-SL 

FS 67 IF S2< Y THEN S2 = S2 + SL 

BP 69 SOUND 0,90,0, 10: SOUND 0,89,0,10 

HE 70 SL= 1 

AH 75 GOTO 20 

HH 299 REM fci=|-^iiraM:*-<IW^^: 

CJ 300 FOR G= 1 4 TO 1 STEP -l:FOR W=1 TO 25:NEX 
T W:SETCOLOR 0,12,G:SOUND 0,G,10,10:SOU 
ND 1,G,10,10:NEXT G 

FO301 SETCOLOR 0 , 1 2 , 1 4 : SOUND 0,0,0,0 : SOUND 1, 
0 ,0,0 

PI 302 FOR EX = 4 TO 6:P0KE SCR + X + 20 * Y , E X : FOR W = 
1 TO 70:NEXT W:SOUND 0,100,0,10:NEXT EX 
:POKE SCR+X+20*Y,0:X=9:Y=10 
AI 303 FOR S = 0 TO 2:S0UND S,0,0,0:NEXT S 
DN 304 TERM=TERM-1:IF TERM = 0 THEN GOTO 5000 
KP 306 FOR L = 0 TO 95 STEP 5.9:S0UND 0,L,0,10:S 
OUND 1 ,L,0,5:SOUND 2,L,8,3:SETCOLOR 4,R 
ND(0)*14,14:NEXT L:SETCOLOR 4,0,0 
AD 310 FOR R = 0 TO 2:S0UND R,0,0,0:NEXT R 
CC315 S 1 = 1 5 : S2= 1 5 

HI 316 FOR FM= 1 TO TERM : SOUND 0,50 , 1 0 , 1 0 : FOR L 
=1 TO 50:NEXT L:SOUND 0,0,0,0:FOR L=1 T 
0 50:NEX T L:NEXT FM:RETURN 
EJ 1000 REM 

EL 1010 CH= (PEEK ( 106)-8) *256: FOR 1=0 TO 7:P0KE 
CH+I,0:NEXT I 

OG 1015 FOR 1 = 0 TO 512: POKE CH+I , PEEK ( 57344+I ) 

:NE X T I 

KJ 1020 RESTORE 1 100 
<6 1030 READ A: IF A<0 THEN RETURN 
DN 1040 FOR J = 0 TO 7: READ B:POKE CH + A*8 + J, B: NE 
XT J 

HD 1050 GOTO 1030 

DN 1099 REM i :i ^ K3a L * j ^ j|-1 - T:T»^ jg 
LD 1100 DATA 10,56,124,254,254,84,56,84, 146 
DK 1110 DATA 11,124,126,251,255,126,124,84, 146 
LL 1115 DATA 12,56,84,254,254, 124,56,84,146 
NN 1117 DATA 14,124,126,223,255,127,52,42,73 
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6P 1120 

EL 1125 
BL 1 130 
HC 1 135 
ED 1140 
HB 1143 
CE 1145 
IL 1146 
LH 1 148 
PE 1149 
JL 1150 
CH 1155 
DL 1200 
HB 3000 
0! 3001 
CA 3002 

HP 3006 
OJ 3007 
PH 3008 
6J 5000 


PE 5010 

H6 5050 

LP 5060 
KB 5061 
FA 5062 
ON 5065 

FA 5070 
KB 5075 

BN 5080 

FJ 5085 

m 6000 

KH 7000 
JE 7001 


LF 7002 
HC 7005 

01 7006 
El 7010 
EC 7020 


DATA 4,0,0,4,0,16,8,64,0 
DATA 5,1,66,0,34,8,64,20,128 
DATA 6,0,0,4,80,8,20,0,0 
DATA 58,68,130,84,56,124,186,68,130 
DATA 2,255,253,239,247,255,191,251,255 
DATA 58,68,130,84,56,124,186,68,130 
DATA 57,0,40,84,186,124,56,68,40 
DATA 55,24,36,90,165,165,153,66,60 
DATA 52,0,56,124,254,239,218,124,56 
DATA 51,7,5,7,56,40,184,128,128 
DATA 33,65,65,99,62,28,8,8,28 
DATA 34,7,5,7,248,104,248,64,192 
DATA -1 

GRAPHICS 2+16:POKE 708,14 
? #6:? #6; " { 6 SPACES}TERM ITE! 

? #6:? #6;"C18 SPACESJ":? #6:5ETC0L0R 4 
,8,7 

? #6:? #6;"PRESS start TO BEGIN" 

IF PEEK(53279)=6 THEN GOTO 5 

POKE 709,RND(0) * 14:GOTO 3007 

FOR E=14 TO 0 STEP -l:SETCOLOR 2,4,E:F 

OR R=1 TO 25:NE X T R:SOUND 0,E,0,10:NEX 

T E 

GRAPHICS 2+16:? #6:? #6;"{6 SPACES} (TFT 

FOR L=20 TO 70:SOUND 0,L,10,10:SOUND 1 
,L,10,10:NEXT L 

? #6:? #6;"{3 SPACESJyour score is: " 
SOUND 0,0,0,0:SOUND 1,0,0,0 
? #6:POSITI ON 8,5:? #6;SC 

FOR W= 1 TO 50: NE X T IMPOSITION 8,5:? #6 
;"{12 SPACES}" 

FOR W=1 TO 50:NEXT W 

? #6:? #6;" PRESS start TO PLAY":? #6; 

" OR select TO QUIT" 

IF PEEK(53279)=6 THEN GRAPHICS 1+16:TE 
RM=3:GOTO 6 

IF PEEK(53279)=5 THEN END 
GOTO 5062 

rem rar-syire 

SOUND 0,255,10,10:SOUND 1,254,10,10:FO 
R L=1 TO 100:SETCOLOR 2,RND(0) *50 , 1 4 : N 
EXT L 

RESTORE 7100 

READ MUSIC:POKE 712,MUSIC:POKE 710,PEE 
K(53770) 

IF MUSIC=255 THEN GOTO 7120 
SOUND 0,MUSIC,10,10 

SOUND 1,MUSIC-1,10,10:FOR G=1 TO 10:NE 
XT G 
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NB 7050 GOTO 7005 

PN 7100 DATA 121,96,96, 121,91,91,81,81,81,91,1 
08,121,144,128,144,121,108,121,72,64,7 
2,91,81,53,47,45,53,33,35,40 

6D7110 DATA 45,47,53,60,60,255 
CH 7120 GRAPHICS 2+16:? #6:? #6:? #6:? #6 
AN 7 1 25 JJ=INT(RND(1)*6)+1:SOUND 0,0,0,0 : SOUND 
1 , 0 , 0,0 


KL 7126 

IF 

▼H 

II 

n 

THEN 

? 

#6; 

II 

13 

SPACES}TERMITE P 


OWER!":GOTO 7200 




FJ 7128 

IF 

J J = 2 

THEN 

7 

#6; 

II 

CLAW LICK'IN GOOD! 


1 

":GOTO 7200 





LP 7130 

IF 

J J = 3 

THEN 

7 

#6; 

II 

■C 5 

SPACESISUPERMITE 


i 

: GOTO 

7200 






BN 7 1 3 1 

IF 

J J = 4 

THEN 

7 

#6; 

• 1 

{ 5 

SPACES}GO FOR IT 


! {8 

SPACES}": 

GOTO 

7200 


F6 7132 

IF 

J J = 5 

THEN 

7 

#6; 

II 

TOTALY AWESOME! ! !! 


":GOTO 7200 


HC 7200 FOR W= 1 TO 50:SETCOLOR 0 , PEEK ( 53770 ), P 
EEK(53770):NEXT W 
KA 7205 IF KNS< 20 THEN KNS=10 
IF 7207 EG = EG + 5 

LD 7210 KNS = KNS-5: SM = SM-10: GRAPHICS 1 + 16:P0KE 
756,CH/256:SETCOLOR 2,RND(1)*14,9:SETC 
OLOR 0,8,10:G0B=G0B+2:GOTO 7 

FH 10000 FOR R = —20 TO 20-.SOUND 0 , ABS ( R ) , 6 , 1 0 : P 
OKE 712,ABS(R):NEXT R:POKE TP,0:X=INT 
(RND(0)* 20) :Y=INT(RND(0)*20> 

FA 10005 SC = SC-50: POKE 712,0 
NC 10010 RETURN 
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Teaching Concepts 

Vilson J. Leffa 


Learning should be an enjoyable, nonthreatening experience. 

That's the idea behind this game for children and adults. 

“Teaching Concepts" was designed to teach and entertain. 

It can teach language-related skills, from spelling to concept 
formation, both to young readers and to students who are 
learning English as a second language. And it can also enter¬ 
tain. The student-players are challenged to use their wits to 
get to the secret word. Graphics and sound, although econom¬ 
ical of space, combine with text to add to the learning—and 
entertaining—environment. 

One, Two, or Three Players 

The program, by allowing up to three players working on dif¬ 
ferent options at the same time, is a cross between group work 
and individualized instruction. Esthetically, the screen may 
look crowded sometimes, but the advantage is obvious: All the 
needed information is always displayed. A quick glance can 
also tell the teacher or parent how much work has been done 
and how well each player is doing. 

The program listed here is ready to run, but should be re¬ 
garded as a demonstration only. This is, in a way, a utility 
program which can be used to meet specific needs. Expansion 
and adaptations can be easily done by entering the language 
items in the DATA lines (see section on expansion). 

Running the Program 

From the player's point of view, the program should be self- 
explanatory, although young children doing it for the first time 
may need some guidance. 

It starts by asking the number of players, their names, 
and their individual options from the menu. Then it displays 
the names and, if no changes are required, a horizontal arrow 
points to the current player. 

If the current player, using the hints displayed on the 
screen, is unable to guess the word the computer is "thinking 
of," help can be requested by pressing the ESC key. Help may 
be free or cost some points, depending on certain conditions, 
such as the player's standing in relation to the others. If help 
is accepted, the player, using the cursor keys, moves the 
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vertical arrow below the fence to the desired position and 
presses RETURN. When the current player is through, the 
horizontal arrow moves to the next player, and a new problem 
is displayed. The menu can be individually accessed at any 
moment through the asterisk (*) key, placed on the other side 
of the keyboard to avoid confusion with the help key. 

Except for the RESET key, all the others that are not 
needed to input relevant information have been disabled, 
including the BREAK key. Mistakes can be erased by pressing 
DELETE. Characters entered by the user are printed on re¬ 
served spaces only and are automatically deleted whenever 
the spaces are filled. 

Looking Inside 

The program, with the DATA lines listed here, takes up 5220 
bytes. REM statements have been omitted and are replaced by 
the following comments: 

Lines 100-210 set up the routine for each game session. 

Line 220 starts the main loop (CP = Current Player, 

NP = Number of Players). 

In line 230 a definition is randomly chosen and read 
within the parameters of the option made by the current 
player. 

Line 240 increases the RESTORE pointer by 1000, reads 
the number of words (NW), and randomly selects one (notice 
the flexibility allowed by the RESTORE X command). 

The core of the program is in lines 320-480. Input entered 
by the user is analyzed and processed character by character. 
This slows down processing when the player is entering cor¬ 
rect information, but should be no problem considering the 
potential users. It appeared to be more effective to reward the 
player after each correct character is entered than only after 
the word is finished. 

Line 490 is a subroutine that deletes the input line en¬ 
tered by the user and moves the arrow in the help mode. 

Line 500 clears the array containing the word typed by 
the current player. 

Lines 510-540 graphically display the area on the screen 
where input from the user is printed. 

Line 550 is the GET subroutine, preceded by the POKEs 
that disable the BREAK key. 

Lines 560-630 guide the players through the game. 
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instructing them on how to use help (560), printing the num¬ 
ber of problems solved (570), pointing to the current player 
(580), and updating the score (620-630). 

The names are printed in line 600. This is done through a 
two-dimensional array using the ASC codes from the GET 
loop. The technique slows down printing a bit, but, again, lack 
of speed is no problem here. 

Lines 640-820 contain the help routine. First, it is decided 
whether or not help is to be free and, if not, how much should 
be charged (650-710). Then the player is guided on how to 
obtain it (720-820). 

Lines 830-920 display the menu and define the sub¬ 
scripted variables FROM(CP) and ADD(CP) according to the 
options entered by the current player (CP). 

The data is stored in two separate groups: definitions in 
the 1000's and the words defined in the 2000's, with space in- 
between to expand the program. 

Expanding the Program 

This program is meant to be changed, expanded, and refined. 
Expansion can easily be done, but some basic rules have to be 
followed if the present structure is kept. 

First, select a supercategory such as the three used here 
(animals, the human body, and the house). Break the super¬ 
category into categories (notice that the examples used in this 
program could be broken up into many more categories). Then 
assign a group of words to each category; the only limitation 
here is that the words have to fit in one DATA line (if another 
line is needed, the category has to be repeated). 

Enter each supercategory in the menu and add the appro¬ 
priate IF-THEN conditions defining the variables FROM(CP) 
and ADD(CP). FROM(CP) refers to the DATA line where the 
reading of definitions (DE) should begin if the supercategory is 
chosen by the current player, and ADD(CP) to the definition 
DATA lines that should be added to complete the super¬ 
category. Also increase the C in line 870 to allow input of a 
higher code. 

Define the categories in one or two phrases, up to 19 
characters each including spaces. If only one phrase is needed, 
use a comma (see examples). Enter the definitions in consec¬ 
utive lines in the 1000's. 
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Finally, enter the words exactly 1000 lines above the 
corresponding definitions, preceded by the number of words 
in the line. 


Teaching Concepts 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 


AL 100 

II 1 10 
AF 120 

JP 130 
JJ 140 

FB 150 

JE 160 
KC 170 
EH 180 

IJ 170 


IK 200 
AP 210 
EK 220 
LC 230 

DC 240 

PH 250 
10 260 

DF 270 

NO 280 

LB 290 
KO 300 
FH 310 
KP 320 
FN 330 
NI 340 


DIM Dl*(20) ,D2* (20) ,WO*(20) ,LE(20),PL(3 
, 6) ,SC(3) ,FROM(3),ADD(3):OPEN #1,4,0,"K 


FOR B=1 TO 3:FOR D=1 TO 6:PL(B,D)=0:NEX 
T D:SC(B)=0:NEXT B:GOSUB 500 
GRAPHICS 18:POSITION 1,3:? #6;"H0W MANY 
PLAYERS 16 SPACES > (UP TO THREE)":L=1:HL 
M=8:GOSUB 510 


GOSUB 550:NP=C-48:IF 
130 

FOR CP=1 TO NP:GRAPH ICS 

: ? # 6 ; 


C< 49 OR 051 THEN 


3,2 




CP; 


CUP TO 


18:POSITION 
? #6 ; " 

■HM3333HT' : L = 6: HLM = 6: GOSUB 510 
POSITION 7,7:FOR D=1 TO 6:G0SUB 550:IF 
C=155 THEN 180 

IF C=126 THEN GOSUB 490:GOTO 150 
? #6;CHR*(C>;:PL(CP,D)=C:NEXT D 
GOSUB 830:NEXT CP:GRAPHICS 1B:CP=1:G0SU 
B 590 

POSITION 7,4:? # 6 ; " CEKDBEIiK 8 SPACESXEIH 
CMNEE" 


(3 spaces} nYrr 3?m 


GOSUB 550:IF C=89 THEN RUN 
IF C<>7B THEN 200 
LAP=LAP+1:FOR CP=1 TO NP 

DE=I NT(RND(0)*ADD(CP) )+FROM (CP) :RESTORE 
DE:READ D1*,D2* 

RESTORE DE+1000:READ NW:WORD=I NT(RND(0) 
*NW)+1:FOR A=1 TO WORD:READ WO*:NEXT A 
L=LEN(WD*):HL=(20-L)/2:HLM=HL-1 
GRAPHICS 18:POSITION 0,0:? #6;"i have a 
secret word" 

POSITION (20-LEN(Dl*))/2,2:? #6;D1*:P0S 
ITI ON (20-LEN(D2*>)/2,3 

? #6;D2 *:? #6;"C5 SPACES> (";L; " LETTERS 
) " 

GOSUB 510 
GOSUB 560 


CT = 0:FOR A=1 
GOSUB 550 
IF C=42 THEN 
IF C=27 THEN 


TO L 

GOSUB 830:GOTO 230 
640 
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JD 350 
66 360 
FE 370 


HP 380 
CN 390 
HD 400 
FH 410 
LN 420 

BH 430 
LF 440 
NE 450 
6H 460 
LM 470 
6J 480 
8B 490 
HO 500 
PJ 510 
OH 520 

6L 530 
DD 540 
H6 550 

FE 560 

QE 570 
HH 580 
HG 590 
JC 600 


HH 6 10 
CD 620 
JN 630 

NK 640 
AC 650 

IA 660 

HO 670 

DP 680 
DI 690 
E6 700 
HA 710 
FD 720 


IF C=126 THEN GOSUB 490:GOTO 310 
IF C< 65 OR 090 THEN 320 

IF C<>ASC(WO$(A,A)) THEN SC(CP)=SC(CP)- 
0.5:GOSUB 620:POSITION HLM+A,7:? #6;CHR 
$(C):GOTO 430 
IF LE(A)=1 THEN 410 

LE(A)=1:POSITION HLM+A,6:7 #6;CHR*(C) 

SC(CP)=SC(CP)+1:GOSUB 620 
POSITION HLM +A ,7s? #6;CHR$(C) 

FOR Z=5 TO 20:SOUND 0,Z,10,10:NEXT Z:SO 
UND 0,0,0,0:CT=CT+1 


CT >L THEN 470 


CP 


7:? #6 ; " -C 1 8 SPACES}":RETURN 
20:LE(A)=0:NEXT A:RETURN 
L : POS I T I ON HLM + A , 8 : ? #6; ,, - M 
THEN POSITION HLM+A,6:? #6;W 


#6 : 


#1 ,C:RETUR 


NEXT A 
GOSUB 490 
IF CT=L OR 
GOTO 310 
GOSUB 500:NEX T 
GOTO 220 
POSITION 1, 

FOR A=1 TO 
FOR A=1 TO 
IF LE(A)=1 
0$(A,A):GOTO 540 
POSITION HLM+A,6:? 

NEXT ArRETURN 

POKE 16,64:POKE 53774,64:GET 
N 

POSITION 11,9:? #6 ; " ESHEEIMMi" : POSITION 
11 ,10:? #6;" EEETMUE" 

POSITION 11,11:? #6 ; " EETEE" ; L AP 
POSITION 6 , CP + 8 : ? #6;"a" 

FOR B=1 TO NP 

POSITION 0,B+8:FOR D=1 TO 6:? #6;CHR*(P 
L(B,D));:NEXT D:POSITION 7,B+8:? #6;INT 
(SC (B) ) :NEXT B 
RETURN 

IF SC(CP)<0 THEN SC(CP)=0 

POSITION 7,CP + 8:? #6;"{4 SPACES}":POSIT 
ION 7,CP+8:? #6;INT(SC(CP)):RETURN 
IF SC(CP)<3 THEN 720 

ME=(SC(1)+SC(2)+SC(3))/NP:IF SC(CP)<ME 
THEN 720 

MI=INT(SC(CP)/3):IF MI>L/1.5 THEN MI=IN 
T(L/1.5) 

GRAPHICS 18:? #6; 

":? #6 :"C6 SPACES}":MI 


I CON HELP YOU FO 


3 OR ( 


? #6:? #6;" <4 SPACES1QYI 
GOSUB 550:IF C=7B THEN 260 
IF C=89 THEN SC(CP)=SC(CP)-MI 
GOTO 690 
GRAPHICS 18 


N FITS ' 


GOTO 720 
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EP 730 ? #6;" MOVE ARROW TO THE":? #6;" 

<3 SPACES3-LETTER YOU WANT" 

FO 740 ? #6;" THEN PRESS r et ur n " : GOSUB 510 
FO 750 GOSUB 570:POSITION HL,7 
EN 760 ? #6; " A " : AR=1 
FA 770 GOSUB 550: IF C = 42 AND 
: GOTO- 820 

OH 780 IF C = 43 AND ARM THEN 
BM 79 0 IF C= 155 AND LE(AR)=0 
0 260 

AJ 800 IF C= 155 THEN 260 
HA 810 GOTO 770 

Cl 820 GOSUB 490: POSITION HLM +AR , 7: ? #6; 

TO 770 

JP 830 


ARCL THEN AR=AR+1 

AR=AR-1:GOTO 820 
THEN LE(AR)=1:GOT 


LE 840 

CL 850 
FF 860 
NK 870 
LH 880 
LN 890 
LI 900 
LK 910 
HL 920 
GE 1001 
ON 1002 
NF 1003 

1004 

1005 

1006 

1007 

1008 
1009 


GRAPHICS 17:? #6;" HI, " ; 
? #6;CHR*(PL(CP,D));:NEXT 
i:? #6; "tgmiiaaKTiiaH" 

? #6;" ESETHTEES" : ? #6;" 
HE":? #6;" 

POSITION 9,18:? #6;"#" 
GOSUB 550: IF C<65 OR 068 


FOR D =1 TO 
D:POSITION 


GO 

6 : 
5, 


LO 

DI 

DN 

CN 

NG 

JH 


, i t 

YOU 


i t 


PK 2001 

LP 2002 
BO 2003 
BH 2004 
IH 2005 
EK 2006 

DJ 2007 
JK 2008 

HH 2009 

JK 2010 


IF C = 65 
IF C = 66 
IF C = 67 
IF C = 68 
RETURN 
DATA IT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
E 

DATA 
DATA 
DATA 
DATA 
DATA 
E 

DATA 
DATA 


THEN 870 
THEN FROM(CP)=1001:ADD(CP)=3 
THEN FROM(CP)=1004:ADD(CP)=4 
THEN FROM(CP)=1008:ADD(CP)=2 
THEN FROM(CP)=1001:ADD(CP)=9 


IS A,WILD 


XT IS 


is a bird 

HAVE IT,IN YOUR FACE 
is one,of your senses 

?rn 


YOU CAN SEE IT,IN THE 

t» i: ran :TTinr 


KITCHEN 


5,ELEPHANT,BEAR,TIGER,LION, GIRAFF 


6,CAT,DOG,COW,HORSE,PIG,OX 

5, HAWK,PARROT,SPARROW,CROW,PIGEON 
4 , NOSE, MOUTH,EYE,CHEEK,CHIN 

6, ANKLE,HEEL,SHIN,CALF,KNEE,THIGH 
5,TOUCH,SMELL,HEARING,VISION,TAST 


4,KNUCKLE,PALM,THUMB,FINGER 
6,STOVE,REFRIGERATOR,SINK,OVEN,DI 
SHWASHER,BLENDER 

DATA 6, BED, CLOSET, MATTRESS,PILLOW,BLAN 

KET,SHEET 

END 
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Deep 

Karl F. Kuhn 


Learn how refraction affects light, shoot aliens, improve your 
programming skills, and have fun at the same time. Joystick 
required. 

You are in position on the surface of a quiet lagoon. In the 
deep, still water below you, a friendly submarine awaits your 
directions before firing a laser beam at an alien in the air 
above. You have two responsibilities: You must tell the sub 
when to fire, and you must give the sub a target on the water 
surface. The laser beam will pass through your target and con¬ 
tinue on—if you have estimated correctly—to hit the alien. 

The only hitch is that when a light beam passes through a 
water-air surface, it bends. Because of this bending (called 
refraction), you cannot simply place the target directly between 
the sub and the alien. You must estimate the amount of refrac¬ 
tion which will occur. Refraction is a phenomenon of nature, 
however, and occurs with a pattern. Unless you have studied 
physics, the pattern may seem odd at first, but you will soon 
get the feel of it, and you will be zapping one alien after 
another. 

Learning the Angles 

A side effect of playing the game will be that you'll get the 
“feel'' of how light actually bends when passing through a 
surface. The angles involved are calculated correctly in the 
program, and you will even see the light being totally re¬ 
flected back into the water when you cause the sub's shot to 
hit the surface at too glancing an angle. 

A clock at the upper right of the screen starts with your 
first shot and shows your remaining time. Your score is shown 
at the upper left and, after the first game, the highest score 
achieved so far is displayed at center. 

The game requires at least 16K and one joystick. It makes 
use of a number of Atari features, including player/missile 
graphics (three players and one missile), a modified display 
list, and a display list interrupt. 

The Program 

Let's look at the program in the order in which it executes. 
This takes us first to the initialization of values at line 6105. 
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The variable named INDEX is the index of refraction of water. 
It determines how much the light beam will bend at the sur¬ 
face. After playing the game using this correct index, you 
might experiment with changing it. Making the index equal to 
1 will result in no bending, because 1 is also the index of 
refraction of air. Diamond has an index of 2.4. Try that for a 
different game (although I don't know what a submarine 
would be doing inside a diamond). LIMIT is the time limit of 
the game in seconds. 

The double GRAPHICS command in line 6110 is not a 
mistake; it is simply a very fast way to clear memory for P/M 
graphics. Later, we will use the 4K of memory starting 8K be¬ 
low RAMTOP for our player/missile area, and a GRAPHICS 8 
command clears the top 8K of memory. 

Display List Interrupt 

(In the next few paragraphs are some suggestions for places to 
experiment and change the program. Be sure to save a copy of 
the program before you begin to experiment.) 

Lines 6120-6150 cause a display list interrupt. This sim¬ 
ply means that between the sixth and seventh display line on 
the GRAPHICS 2 screen, the Atari performs the short machine 
language routine using the DATA in line 6150. The purpose of 
this interrupt is to change some colors in the bottom half of 
the screen. The colors in the SETCOLOR registers 2 and 4 are 
changed to green. I recommend that you play with this even if 
you don't understand machine language. Change the 10 in 
line 6120 to change the position on the screen where the 
interrupt occurs. (We'll use this same interrupt later with the 
GRAPHICS 7 screen. In that case we will POKE a 141 into the 
display list about halfway down that screen.) To experiment 
further, change the 196 on the DATA line in order to cause a 
different color to appear at the bottom of the screen. The 24 
causes the color to be POKEd into color register 2, and the 26 
changes register 4. Change either of these numbers to 22 or 23 
to change the colors in registers 0 or 1. 

Line 6310 turns off Antic with the POKE to 559 and then 
establishes a GRAPHICS 1 line by POKEing 70 in the LMS 
command of the display list. The 12 is POKEd into the next 
display line in order to make a total of 40 bytes of screen 
memory for the two lines. Then, as promised, the display list 
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interrupt is set with a POKE to (DL + 46), which will be the 
forty-second display line on the screen. 

The Game Logic 

The main loop consists of lines 200-290. One unusual aspect 
here is the use of PTRIG to read joystick positions in lines 210 
and 250. It's a happy coincidence that (PTRIG(O) — PTRIG(l)) 
equals — 1, 0, and +1 for joystick positions of left, center, and 
right respectively. If you use this method to read your joystick, 
even the diagonal positions are accepted for horizontal mo¬ 
tion. (COMPUTERS Mapping the Atari, by Ian Chadwick, con¬ 
tains this and other neat tricks.) 

Notice that before printing the time at lines 231 and 234 
(and in the subroutine at 100), we must fool the Atari into 
thinking that we are in GRAPHICS 2. We do this by POKEing 
a 2 into location 87. Then, after printing the time, we rePOKE 
location 87 to the original GRAPHICS 7. 

Mathematicians and physicists may want to check my 
calculation algorithm in lines 310-330, but most people will 
probably just take my word for it. The problem is that not 
only must the angle of refraction be calculated (from Snell's 
Law, physicists), but the destination for the DRAWTO must 
also be calculated, and it may either be at the top or the side 
of the screen. Hence, the messy math. 

Line 360 checks the collision register for a hit and, IF HIT, 
the old target is erased, a new target selected, the score up¬ 
dated, and the program returned to the main loop at line 200. 

Deep 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

SJ 90 GOTO 6100 

SK 100 A=INT ( (PEEK (20) +PEEK ( 19) *256)/60) : IF A> 
LIMIT THEN 900 

BL110 POKE 87, 1 : POSITION 16,0:PRINT #6;LIMIT- 
A;" " :POKE 87,7:RETURN 

HG 200 REM 

PP210 FOR X1 =ST TO FIN STEP M:POKE H3,X1:A = PT 
RIG(1)-PTRIG(0):IF STRIG(0>=0 THEN GOSU 
B 300 

NH 220 CON = CON + 0.5: IF NOT A THEN CON=l 
FG 225 SPOT = SPOT-A*CON: IF SPOT<50 THEN CON=l:S 
POT = 200 

NJ 230 IF SPOT >200 THEN CON= 1 : SPOT = 50 
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GI231 POKE H2 , SPOT: POKE 87,1: IF NOT STARTED 
THEN POSITION 16,0:PRINT #6; "SE" : POKE 8 
7,7:GOTO 250 

HB 233 A=INT ( (PEEK (20) +PEEK ( 19) *256) /60) : IF A> 
LIMIT THEN 900 

IF 234 POSITION 16,0:7 #6 ; L I M I T-A ; " " : POKE 87, 

7 

HH 250 SPOT = SPOT+ <PTRIG (0) -PTRIG ( 1 ) >*CON:POKE 
H2,SPOT 

FL 270 IF MOVE THEN X = X + WAY:POKE H0,X:POKE HPM 
2 , X: IF X =18 0 OR X = 60 THEN WAY = WAY-2*WAY 
PF 280 IF NOT MOVE THEN POKE 707 , PEEK (53770) 

GJ 290 NEXT XI: GOTO 210 
HH 300 REM 

KA 305 TRAP 500:SURFX=SP0T-44:SUBX=X-47:POKE 5 
3278,0:IF NOT STARTED THEN POKE 20,0:P 
OKE 19,0:STARTED=1 

PD 3 1 0 SHOTS = SHOTS + l : POKE 706,52 : X D I S 1 = ABS ( SUB 
X-SURFX):SINAIR=INDEX*(XDIS1)/SQR(1600+ 
XDIS1*XDIS1) 

BN 315 XDIS2=40*(SINAIR/SQR(1-SINAIR*SINAIR) ) : 

REM TERM IN () IS TAN OF THE ANGLE WHOS 
E SINE IS SINAIR—(THETAAIR) 

CK 320 TRAP 40000: T0PY = 2: TOP X = S URF X + X D I S 2-2 * (S 
UBX >SURFX)*XDIS2 

OF 330 IF TOPX >159 OR TOPX<0 THEN TOPY=40*(TOP 
X-(T0PX>159)#159)/(TOPX-SURFX):T0PX=159 
-(TOP X < 0) *159 
PG 333 POKE 706, 14 

PG 340 COLOR 2 : PLOT SUBX , 79 : DRAWTO SURFX,40:DR 
AWTO TOPX,TOPY:FOR 1=100 TO 220 STEP 20 
:SOUND 0, I, 10, 15:NEXT I 
KG 350 SOUND 0,0,0,0 : COLOR 0:PLOT SUBX,79:DRAW 
TO SURFX,40:DRAWTO TOPX,TOPY 
HO 357 POKE H0,X:POKE HPM2,X 
KI 360 HIT = PEEK (53255) : IF HIT THEN 600 
HH 390 RETURN 
HI 400 REM 

JH410 FOR 1 = 15 TO 1 STEP -l:SOUND 1,20*1,10,1 
:NE X T I:SOUND 1,0,0,0 

GO 440 SCORE = SCORE + 80-2*SHOTS+10* (SHQTS=1)+20* 
MOVE 

KJ 442 POKE 87, 1 : POSITION 2,0:PRINT #6;SC0RE 
HL 4 50 LIMIT = LIMIT+1 : GOSUB 100 
LC 460 SHOTS = 0: RETURN 
HJ 500 REM 

NA 520 B0TY = 79: BOTX = SURFX + XDISl - 2*XDIS1 * (SUBX> 
SURFX):IF B0TX>159 THEN BOTY=40+39*(159 
-SURFX)/(BOTX-SURFX) 
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LK 522 IF BOTX < 0 THEN BOTY=40+39*SURFX/(SURFX- 
BOTX ) 

NP 5 25 BOTX = BOTX — BOTX* (BOTX<0) — (BOTX-159) * (BOT 
X >159) :POKE 706,14:GOSUB 100 

IP 529 SH0TS=SH0TS+2:TRAP 550:COLOR 2:PL0T SUB 
X , 79:DRAWTO SURFX,41:DRAWTO BOT X,BOTY 
ON 530 SOUND 0,150,12,12 : SOUND 1,15 2,12,12:? : 

? : ? "15 SPACES> ■ f .U;T^H Zfc : 

: FOR D= 1 TO 140 + 200* ( NOT MOVE) 

KF 540 NEXT D:COLOR 0:PLOT SUB X , 79 : DRA WTO SURF 
X,41:DRAWTO BOTX,BOTY:? CHR*(125) 

MG 550 GOSUB 100:SOUND 0,0,0,0 : SOUND 1,0,0,0:G 
OTO 270 
HK 600 REM 

HP615 FOR I=MYPM+1792 + Y1 TO MYPM+1 799 +Y 1 : POKE 
1,0:NE X T I: IF HIT = 2 THEN GOSUB 400 
OJ 620 Y1 = 60 + 2B*RND (0) 

AP 630 M = 3*RND (0) —1.5: ST=195* ( M < 0 ) +50* (M> = 0) :F 
IN=245-ST:IF NOT MOVE THEN ST=46+150*R 
ND(0):M=0 

MC 635 IF ST< 160 AND ST>B0 AND RND<0)>0.5 THEN 
ST=46+153*(RND(0)>0.5) 

BH 640 POKE H3, ST 

AJ 650 RESTORE 660+RND(0>*4:FOR I =MYPM+1 792 +Y 1 
TO MYPM+1799+Y1:READ A:POKE I,A:NEXT I 
:READ A:POKE 707,A 

DATA 24,60,0,255,255,0,60,24,202 

129,153,189,255,1B9,153,129,0,234 
24,102,255,153,153,255,102,24,28 
0,28,8,73,127,73,8,28,46 
85,42,85,42,85,42,85,42,12 
200 

0,0,0,0:REM 


NK 660 
CK 661 
NO 662 
GF 663 
MJ 664 
GK 690 
LP 900 
DP 910 


TIME-S 


KA 920 

GO 925 

CB 926 
PJ 928 


DATA 
DATA 
DATA 
DATA 
GOTO 
SOUND 

POK E 706,15:? "ID0WN1C14 SPACES>| 

MSB": IF SCORE >BEST THEN BEST = SCORE:BEST 
*=STR*(BEST):GOTO 970 

SOUND - 1, 100, 10, 10:FOR TIME=1 TO 200:POK 
E 755,3:POKE 755,2:NEXT TIME:SOUND 1,0, 
0,0 

BEST*=STR*(BEST> :POKE 53279,0:SCORE = 0:S 
TARTED = 0:? "tCLEARJ CDOWN>17 SPACES>PRES 
S FOR SAME GAME. " 

IF MOVE= 1 THEN ? " C3 SPACESIPRESS 
C FOR STILL TARGET GAME.":GOTO 930 
? " PRESS FOR MOVING TARGET GAME 


NF 930 POKE 87, 1 : POSITION 8,0: IF LEN(BEST*)<4 
THEN BEST*CLEN(BEST*)+1)=" ":GOTO 930 

NH 94 0 FOR 1 = 1 TO 4:PRINT #6 ; CHR* ( ASC ( BEST* ( I ; 
I ) )-32) ; :NEXT I 
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950 

955 


PA 960 


DH 970 
OB 975 

BE 980 


DE 990 


OP 99 1 


I=PEEK(53279):IF 1=7 THEN 950 
IF 1=5 THEN MOVE=ABS(MOVE-1):IF NOT MO 
VE THEN X=122:POKE H0,X:POKE HPM2,X 
POSITION 2,0:PR I NT #6;"00 ":POKE 87,7: 

HIT = 0:POKE 53279,0:STARTED=0:LIMIT=60:7 
CHR$(125):POKE 77,0:GOTO 600 
RESTORE 990:HOLD=3 

READ A,B:IF A=999 THEN SOUND 1,0,0,0:SO 
UND 0,0,0,0:POKE 755,2:G0T0 925 
POKE 755,2:SOUND 1,A,10,12:SOUND 0,A+1, 
10,6:FOR TIME=1 TO B * HOLD:NEXT TIME:POK 
E 755,3:GOTO 975 

DATA 72,4,0,2,72,4,0,2,72,4,0,2,72,30,6 
4,20,0,5,85,10,81,10,72,20,0,5,85,10,81 
,10,72,10 


6100 

6105 


ET UP DISPLAY LIST 


57,30,999 
REM a 

INDEX=1.33:LIMIT=60:DIM BEST*(4):POKE 
82,0:SPOT=100:WAY=0.5 

MI 6110 GRAPHICS 8:GRAPHICS 2:SETC0L0R 4,9,4:D 
L=PEEK(560)+256*PEEK(561) 

POKE DL+10,135:RESTORE 6150:POKE 52761 
,8:FOR 1=0 TO 1 3:READ A:POKE 1536+1,A: 
NEXT I 

POKE 512,0:POKE 513,6:P0KE 54286,192 
DATA 72,169,196,141,10. 

141,26,208,104,64 
REM 


OF 6 120 


IL 6130 
IE 6150 

6F 6200 
DH 6250 


12,141,24,208, 


NB 6251 
FB 6252 


FD 6260 
NB 6280 
GJ 6290 
HA 6300 
KJ 6310 

OB 6320 
EA 6400 
BM 6405 

IA 6450 
DM 6500 
OP 6503 
JA 6505 


C0L=49:POSITION 8,1:? #6;"deep":POSITI 
ON 5,7:? #6;"still target":? #6;" 

{5 SPACESJmoving target" 

POKE 752,1:? :? "C15 SPACES!CHOOSE ONE' 

COL=ABS(COL-194):COLOR COL:PLOT 3,7:A= 
ABS(COL-194)+1:COLOR A:PLOT 3,8:F0R T= 

1 TO 50:NEXT T:SOUND 0,A,10,2 
I=PEEK ( 764) :MOVE=(1=30) 

IF I< 30 OR I>31 THEN 6252 


764,255 


ET UP 


POKE 
REM ■ 

GRAPHICS 7:POKE 
*PEEK (561) :POKE 
POKE DL+46,141 
REM Pf ^, ■; 


559,0:DL=PEEK(560)+256 
DL+3,70:POKE DL+6,12 


:Tl'7W 


ssmnn 

SETCOLOR 4,8,0:SETCOLOR 
R 2,0,14:POKE 752,1 
COLOR 2 

X=122:POKE 704,0:POKE 706 
A = PEEK ( 106)-32:POKE 54279 


1,7,10:SETCOLO 


1 4 

A:MYPM = 256 * A 
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PO 6510 

SJ 6530 

IE 6535 

FG 6540 
EF 6590 


POKE 53277,3:H0=53248:POKE H0,X:H2=532 
50:H3=53251:HPM2=53254:P0KE HPM2,X:P0K 
E 53256,1 

RESTORE 6540:FOR I=MYPM+1220 TO MYPM+1 
226:READ A:SOUND 0,A,10,10:POKE I,A:NE 
XT I 

POKE MYPM+1656,231:POKE MYPM+1657,23 1 : 
POKE MYPM+966,48 
DATA 32,32,124,255,255,255,0 
POKE 559,62:GOTO 620 
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Heroes 

Steven Leffler 


" Heroes'' is an exciting adventure game that combines joystick 
movement and keyboard commands. Requires at least 16K RAM, a 
joystick, and more thought than is immediately apparent. 

You are a fearless explorer, traveling in search of adventure. 
You have come a long way and have now arrived at an inn in 
a strange land. As the innkeeper serves your dinner, he tells 
you some of the history of this place. 

"This country," claims the innkeeper, "which extends for 
many miles both to the north and east of the inn, was once 
used by a clan of wizards for their evil experiments. One day 
the wizards disappeared, leaving their castles to fall into ruin 
and the creatures which once guarded them to run wild. It is 
said that, to this day, the creatures the wizards created still 
roam the wilds of this region and the ruins of the castles that 
were once their homes. It is also said that, in their haste to de¬ 
part, the wizards left behind much treasure, and anyone who 
survives a trip into their demesnes will leave a rich man." 

Even before the innkeeper finishes his tale, you have de¬ 
cided to explore this strange country. You rise early the next 
morning, bid the innkeeper farewell, and depart into the 
unknown. 

The object of "Heroes" is to explore the entire area shown 
on the screen and get as much treasure as you can without 
getting killed. Your final score is based on the amount of trea¬ 
sure you have collected during your travels. 

You start out with 50 hit points. These show how healthy 
you are; when you have lost all of them in combat, you die. 
Fortunately, you can return to the inn to rest and regain hit 
points (with a small fee for use of the facilities, of course). 

As you explore, you will have to face many monsters. 
Each one guards a pile of treasure which you can take after 
you slay the beast. The treasure will consist of such things as 
gold, magical weapons and armor, as well as the very power¬ 
ful magical scrolls. The names of the scrolls are often cryptic, 
giving no clue to their purpose, so you will have to be careful 
when using them. 
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Playing Heroes 

Use a joystick in slot 1 to show your direction of movement 
and word commands to indicate anything else. Type HELP 
and press RETURN to get a list of the words you can use. 

Press RETURN to enter a command. TRIG means push the 
joystick trigger. 

TAKE Adds items to your treasure 

LIST Prints your treasure list 

SPELL Uses a scroll from the treasure 

TRIG Causes you to attack with your sword if there is a mon¬ 
ster present; is the same as LIST at all other times 
HELP Prints a brief summary of these commands 
QUIT Ends the game and displays your total points 

Different colors show different terrain: 

Brown Meadow 

Green Forest 

Gray Ruins 

Black Unexplored 

You start with 50 hit points (HP). These are a measure of 
your ability to take damage. Damage reduces your HP total; 
when it reaches 0, the game ends. If you get low, you may re¬ 
turn to the inn, and regain 1 HP per day at a cost of two gold 
pieces (GP) for food and accommodations. 

Finally, a playing tip—victory depends heavily on your 
ability to make effective use of the scrolls. 

Heroes 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

Cft 9 GRAPHICS 2:POKE 752,1 

RN 10 SETCOLOR 2,0,0:? #6; " CCLEflR} a'iJH.”tJfcf a 
; POSITION 0,2:? #6;" A GAME OF FA 

NT ASY" 

IN 20 POSITION 0,4:? #6;" AND ADVENTURE IN A": 
POSITION 0,6:? #6;"<3 SPACES>MED IEVAL ER 
A":? "<2 TABJC3 SPACESIby Steven Letfler 

II 

DO 21 FOR T= 1 TO 2000:NEXT T 

IH 30 HP = 50: EX=1 : DIM I *<1) ,C* ( 6> ,B* <12> ,SC*(80 
),MT*(24) 

JP 35 OPEN #1,4,0, "K: " 

NA 160 ? : ? "PUSH ANY KEY TO START YOUR ADVENT 
URE":GET #1,T 
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LB 170 L1=0: L2=19:S = 0:W=1:GRAPHICS 3:SETC0L0R 


N6 175 
HD 1 80 
NB 190 
K1 195 
HN 200 
KH 205 

OC 210 
JE 220 

PH 225 
LH 240 

BA 242 

NB 245 

HD 246 
BL 247 


0,15,2:SETCOLOR 1,0,4:SETCOLOR 2,12,0 
REM «*»<■]: 

POKE 752,1:COLOR W:PLOT L1,L2 
C = STICK(0) : IF C< >15 THEN 247 
IF EX >799 THEN 1060 

IF STRIG(0 > =0 AND B1>0 THEN GOTO 1080 
IF STRIG (0) =0 AND Bid THEN GDSUB 480:G 
OTO 180 

COLOR 0:PLOT L1,L2 

TRAP 220:C2=PEEK(764):IF C2=12 THEN GOS 

UB 540:GOTO 180 

IF C2=255 OR C2=60 THEN 180 


GET #1,C2:IF C2=126 AND LEN(C$> 


1,LEN <C$)-1) :? 
C2=126 THEN C$="" 


IF 
80 

C$(LEN(C*)+1)=CHR$(C2) 
180 
REM [ 

Ct=" " 


CHR $(C 2) ; : 
? CHRt(C2) 


>1 THEN 
GOTO 180 
;:GOTO 1 


? CHR$(C2);:GOTO 




B*; 


0L1=L1:0L2=L2:IF F=1 THEN ? "THE 
IS BLOCKING THE WAY!":GOTO 180 


PH 248 

IF 

B1>0 THEN ? 

"THE ";B$;" 

IS CHASING 


OU 

! " : IF INT(RND(0) *4+1) >(Bl/10) AND SS 


0 

THEN ? "IT’S 

TOO FAST":F 

=1:GOTO 

180 

FF 249 

IF 

B1>0 THEN ? 

"YOU OUTRAN 

IT ! " 


KL 250 

SOUND 0,46,0,8 

:GOSUB 3000: 

IF C= 1 4 

THEN 


? 

"N" : L2 = L2-1 : 

GOTO 330 



HA 260 

IF 

C=6 THEN ? 

"NE":L1=L1+1 

:L2=L2—1 


KD 270 

IF 

C=7 THEN ? 

" E":L1=L1 + 1 



HE 280 

IF 

C=5 THEN ? 

"SE":L1=L1+1 

:L2=L2+1 


OC 290 

IF 

C=13 THEN ? 

"S":L2=L2+1 



NF 300 

IF 

C=9 THEN ? 

"SW":L1=L1-1 

:L2=L2+1 


NN 310 

IF 

C=ll THEN ? 

"W":L1=L1-1 



PH 320 

IF 

C=10 THEN ? 

"NW":L1=L1- 

1 : L 2 = L 2 — 

1 


FL 330 

AH 335 

HL 340 

LF 350 
PI 360 

DD 370 

LG 380 
HC 385 
HJ 390 


SOUND 0,0,0,0:IF L1<0 OR L2<0 OR Ll>39 
OR L2 >19 THEN ? "{BELLI YOU CANNOT LEAVE 
THE SCREEN!":L1=0L1:L2=OL2:GOTO 180 
FOR T20=1 TO 20:NE X T T20:LOCATE L1,L2,W 
: IF W< >0 THEN 440 

EX=EX+1:W=INT(20*RND(0)>+1:IF W<17 THEN 
W = 3 

IF W=18 
IF W=20 
W = 2 

RESTORE 
90,420 

IF INT ( 100*RND(0) )=0 
GOTO 180 

IF INT ( 10*RND (0) )<>0 THEN 180 


OR 

OR 


W= 1 7 
W= 1 9 


THEN 

THEN 


W= 1 
W= 1 


IF S + SH >2 THEN 


COLOR W:PLOT L1,L2:0N W GOTO 


THEN 400 
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GC 395 REM 

DL 400 FOR T = 1 TO (I NT<RND(0) *5+1 > ) :READ B$,B1 
,B2,B3,B4,B5:NEXT T 

OF 4 1 0 ? "OH, NO THERE’S A *■ ; B * ; " COMING!":? "W 
HAT ARE YOU GOING TO DO?":GOSUB 2500:GO 
TO 180 

EP4 15 REM :TSm: arif 34;: 

PN 420 FOR T= 1 TO 30: READ B*: NEXT T: FOR T=1 TO 
( INT(RND(0) *6+1 )):READ B$,B1,B2 
HE 430 READ B3 , B 4 , B 5 : NE X T T:? "OH,NO THERE’S A 
" ; B$ ; " COMING!":? "WHAT ARE YOU GOING 
TO DO?":GOSUB 2500:GOTO 180 

EC 435 REM M » ■ 1I E fe U sQUi 3! ’ 

JP 440 IF L1 >0 OR L2C19 THEN 180 

FO 450 ? "YOU ARE AT THE INN, DO YOU WISH TO 

{4 SPACESJSTAY AND REST?":B1=20:GOSUB 2 
500:B1 = 0 

OD 455 GET #1,T:IF T = 78 THEN 180 

PC 460 T = 50-HP: IF GP-2*T<0 THEN T=INT(GP/2) 

IK 470 GP = GP-2*T : HP = HP + T : ? "HP: ";HP,"GP: " ; GP 

:GOTO 180 

PL 480 REM iiffeS sE ■- :V i I 

HC 490 C*="":? " C CLEAR J HP : ";HP,"GP: ";GP,"A + 

" ;S; " SWORD",: IF SS=1 THEN ? "ELVEN SLI 
PPERS " , 

OJ 495 ? "AND + " ; SH ; " ARMOUR":? " IU t ki I B ^ JMG ■e TT g 

HmSEdEH" 

NH 500 FOR T20= 1 TO 50:NEXT T20:IF STRIG(0)=1 
THEN 500 

IA515 ? " {CLEAR! " : POKE 752,1:F0R T20=l TO 20: 

NEXT T20:IF LEN(SC$)=0 THEN ? "{UPJ":RE 
TURN 

0G517 POKE 82,0:? "SCROLLS:"; 

PK 520 FOR T = 1 TO ( LEN ( SC$ ) / 8 ) : ? SC* < T * 8-6 , T * B 
) , : N E X T T:? " r-I i ; ML* OM L " : FOR T20=l TO 20 

:NE X T T20:POKE 82,2 
6G 530 IF STR I G ( 0 ) = 1 THEN 530 

DD 535 ? " {CLEAR! " : FOR T20=l TO 50:NEXT T20:RE 
TURN 

HI 540 REM is inwga3*aM?M; i PSg^. l Strr: 'LPL’! 

Kfl 550 GET #1,T: IF C$="LIST" THEN GOSUB 480:RE 
TURN 

LE 560 IF C$ = " SPELL" THEN C* = " ":GOTO 800 

FH 570 IF C$="TAKE" THEN C$="":GOTO 640 
HI 580 IF C* = "QUIT" THEN C$="":GOTO 610 
Eft 590 IF C$<>“HELP" THEN 600 

HJ 592 ? " {CLEARJTAKE: takes treasurelTABISPELL 
: casts spell";:? "LIST:shows inventory 
ITABJQUIT:ends game" 
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CH595 ? "trig:shows inventory/attacks w/ swor 
d " 

KH 597 Ct = " " : RETURN 

IB 600 ? " {CLEAR! {BELL!WHAT??" : C t = “ " : RETURN 

EC 605 REM 

FF610 ? " {CLEAR!POINTS: " ; 1 0 * ( GP+ ( LEN ( SC t ) ) +S 
+SH):? "ARE YOU SURE YOU WANT TO QUIT?" 
:Ct="" 

LG 620 GET #1,C:IF C = B9 THEN GRAPHICS 0: END 
LD 630 ? " {CLEAR! " : RETURN 
CL 639 REM iFim 

JB 640 ? "{CLEAR!": IF LEN(MTt)=0 THEN 750 
KL 650 FOR T= 1 TO (LEN ( MTt) / 8) : IF MTt(T*B-7,T* 
S-7)< >"S" THEN 710 

LI 660 IF MTt ( T * 8 - 7 , T # 8 - 3 ) < >" SWORD" THEN 690 
KI 670 C = VAL (MTt (T*B, T*8) ) : IF C<=S THEN NEXT T 
:GOTO 750 

HB 680 S = C: ? "+ ";C;" SWORD":NEXT T:GOTO 750 

DL 690 IF MTt (T*8-5, T*8) =”SSPEED" AND SS=1 THE 
N NEXT T:GOTO 750 

NB 700 IF LEN (SCt) =80 THEN ? "YOU CANNOT CARRY 
ANY MORE SCROLLS":NEXT T:GOTO 750 
CK 705 SCt (LEN (SCt) +1 ) = MTt (T*B-7, T*8) : ? "SCROL 
L: ";MTt(T*8-6,T*8) :NEXT T:GOTO 750 
GJ710 IF MTt (T*B-7, T*8-7) < > " A " THEN 725 
PB715 C = VAL (MTt (T*8, T*8) ) : IF C<=SH THEN NEXT 
T:GOTO 750 

EL 720 SH = C : ? "+ " ; C ; " ARMOUR" : NEXT T:GOTO 750 

HE 725 IF MTt (T*8-7, T*8-7) < >"E" THEN 735 
BP 730 SSQ = 0 : SS= 1 : ? "ELVEN SL I PPERS-SUPER SPEE 
D ! " :NEXT T:GOTO 750 

OL 735 ? "POTION OF HEALING... DO YOU WANT TO 
<3 SPACES!USE IT NOW";:INPUT It:IF It<> 
"N" THEN HP=HP+5:? "HP:";HP:NEXT T:GOTO 
750 

GL 740 ? "IT TURNS TO WATER! ":NEXT T 
Cl 750 GP = GP + MG : ? MG;" GOLD PIECES" : Ct=" " : MTt = 
"":MG=0:RETURN 
CJ 795 REM 

GC 800 ? " {CLEAR! WHICH SCROLL (TYPE LIST TO SE 
E YOUR{3 SPACESILIST)INPUT Ct:IF Ct= 
"LIST" THEN GOSUB 515:G0T0 800 
IP 8 1 0 FOR T = 1 TO (LEN (SCt) /8) : IF SCt(T*8-5,T* 
8)< > C t THEN NEXT T:? "YOU DON’T HAVE TH 
AT SCROLL!":Ct="":RETURN 
KC 820 C = 0: IF Ct=" HEALTH" THEN HP = 50:? "HP:50" 

:GOSUB 2600:GOTO 960 

KH 830 IF Ct = "SSPEED" AND SS = 0 THEN SS=1:SSQ=1 
:F=0:? "SUPER SPEED ON.":GOSUB 2600:GOT 
0 960 
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JH 840 IF C$="GOLUCK" THEN S = S+1 : SH = SH+1 : GOQ = G 
□Q+ls? "YOU FIGHT BETTER!":GOSUB 2600:G 
OTG 960 

HL 850 IF C$< >" STONES" OR B1<1 THEN 860 
IP 855 ? "A GUST OF WIND PELTS THE MONSTER WIT 
H STONES!":C=INT(RND(0)*10)+1+S:GOSUB 2 
700:GOTO 960 

OB 860 IF C $ < >" CONTRA" THEN 900 

BK 870 ? "A BEAM FLIES FROM THE PAPER! YOU ARE 
HIT! !":FOR T2=l TO 200:SETCOLOR 4,4,0 
:SOUND 0,76,10,10 

DL 880 SETCOLOR 4,0,0:SOUND 0 , 1 02,1 0 , 1 0 : NE X T T 
2:EX=1:? #6;"{CLEARJ":COLOR l:PLOT 0,19 
:W=0:? "YOU ARE TOTALLY LOST!!" 

PN 890 SOUND 0,0,0,0: GOSUB 3000:GOTO 960 
KG 900 IF C$=" FIREBA" THEN ? "A FIREBALL SHOOT 
S FROM THE PAPER! ! ":C=I NT(RND(0) *21)+10 
:GOSUB 2800:GOTO 960 

HO 910 IF C$="ENERGY" THEN ? "A LIGHTNING BOLT 
SHOOTS FROM THE I6 SPACES>PAPER!!!":C=I 
NT(RND(0) * 11) +20:GOSUB 2900:GOTO 960 
OD 920 IF C$< >"BATSHR" THEN 935 

KC 925 IF B$="GIANT BAT" THEN ? "THE BAT SHRIN 
KS AND DISAPPEARS!":B1=0:POP :GOSUB 960 
:GOTO 1150 

NB 930 ? "THERE IS NO BAT HERE, SO NOTHING 
16 SPACESJHAPPENS":GOTO 960 
OC 935 IF C$< >"SEEING" THEN 955 

BG 940 X = INT (RND (0) *38) +1 : Y=INT (RND (0) * 18) +1 : F 
OR T3= X — 1 TO X + 1:FOR T2 = Y-1 TO Y+l:LOCA 
TE T3,T2,T20 

AD 945 IF T20O0 THEN NEXT T2: NE X T T3:C = 0:GOSU 
B 2600:GOTO 960 

BI 947 EX = EX + 1 : C=INT (RND (0) *10)+1 : IF 03 THEN 
C = 3 

IP 950 COLOR C: PLOT T3,T2:NEXT T2-.NEXT T3:C = 0: 

GOSUB 2600:GOTO 960 
HK 955 ? "NOTHING HAPPENS." 

BP 960 C$=" " : IF T * 8 = L EN ( SC$ ) THEN SC$(T*8-7)=" 
" :GOTO 970 

CD 965 SC$ (T*8 —7) = SC$ (T*8+l > 

BO 970 IF B1 < 1 THEN RETURN 

Efl 980 POP : IF C = 0 THEN 1110:REM MONSTER ATTAC 
KS 

OB 990 ? "YOU DO ”;C;" HP DAMAGE! ”:B1=B1-C: IF 
B1 <1 THEN 1150:REM MONSTER DIES 
AO 1000 GOTO 1110: REM MONSTER ATTACKS 
IG 1059 REM l - Jil i T T i iraa 

GG 1060 GRAPHICS 2+1 6 : POS I T I ON 4,5:? #6;"Y0U H 
AVE THT7 " 
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FF 1065 
NH 1070 

NO 1075 
GL 1079 
AG 1080 


NI 1085 
G6 1090 
IK 1 095 

HD 1100 

DA 1 1 1 0 


NK 1 1 1 5 
NG 1120 
FE 1130 


PH 1 132 


FJ 1135 
JI 1140 
EF 1149 
NH 1150 


HP 1160 


AE 1170 
ND 1180 


EG 1190 

PL 1200 

CG 1210 

EE 1220 

CK 1230 
BC 1240 


FOR C=1 TD 200:NEXT C 

FOR X=0 TO 5:FOR C=0 TO 255:P0KE 712,C 
:SOUND 0,C,10,10:NEXT C:NEXT X 
SOUND 0,0,0,0:GOTO 1385 
REM BEgmaj 

? "YOU USE YOUR SWORD.";:FOR T=12 TO 0 
STEP -1:SOUND 0,T,0,8:NEXT T:SOUND 0, 
0 , 0,0 

IF INT(RND<0)*20)+1+S>8 THEN 1095 
? "YOU MISSED!":GOTO 1110 

? "A HIT! ";:FOR T=15 TO 0 STEP -l:SOU 
ND 0,70,4,T:NEXT T 

X = INT(RND(0) * 10)+1+S:? X;" HP DAMAGE!" 

:F = 0:B1=B1-X: IF B1<1 THEN 1150 

FOR X = 1 TO 100:NEXT X:? "THE ";B$;" AT 

T ACKS. "5 :FOR T=12 TO 0 STEP -l:SOUND 0 

,T,0, 8 :NEX T T:SOUND 0,0,0,0 

IF INT(RND(0)*20)+1-SH+B2>10 THEN 1130 

? "IT MISSED!":GOTO 180 

? "IT HIT! " ;:FOR T=15 TO 0 STEP -l:SO 
UND 0,60,4,T:SETCOLOR 2,2,T:NEXT T:SET 
COLOR 2,12,0 

X=INT (RND(0) * 10)+1+(B2*2) :? X;" HP DAM 
AGE!":HP=HP-X:? "YOU HAVE ";HP;" HP LE 
FT" 

IF HP<1 THEN 1380 
GOTO 180 

REM l£t«3:ai3:tfc»> TH‘/~ J ■ 

? "THE ";B$;" IS DEAD!":FOR T=50 TO 15 
0:SOUND 0,T,10,10:SOUND 1,T-10,10,10:N 
EXT T 

SOUND 0,0,0,0:SOUND 1,0,0,0:FOR T=1 TO 
50:NE X T T:SOUND 0,20,0, 10:FOR T=1 TO 
15:NEXT T:SOUND 0,0,0,0 

? "THERE IS A SMALL PILE OF TREASURE!" 

:IF B2=0 THEN 1230 

FOR X =1 TO B2:Y=INT(RND(0) * 100)+1: IF Y 
<26 THEN MT$(LEN(MT$)+1)="ELF SLIP":NE 
XT X 

IF Y >25 AND Y<46 THEN MT*(LEN(MT$)+ 1 ) = 
"ARMOUR+3":NEXT X 

IF Y >45 AND Y <66 THEN MT$ (LEN( MT$ )+ 1 ) = 
"SWORD +3" : NEXT X 

IF Y >65 AND Y<81 THEN MT$ (LEN(MT$)+1 > = 
"S GOLUCK":NEXT X 

IF Y >80 THEN M T $(LEN(MTt)+1)="S HEALTH 
":NEXT X 

IF B3=0 THEN 1300 

FOR X =1 TO B3:Y=INT(RND(0) *100)+1: IF Y 
<11 THEN MT$(LEN( M T $ )+1)="POTHEALI":NE 
XT X 
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OK 1250 IF Y > 1 0 AND Y<36 THEN MT$ (LEN ( MT* ) +1 ) = 
"ARMOUR+l":NEXT X 

EE 126 0 IF Y >35 AND Y<46 THEN MT$ (LEN (MT$)+1 ) = 
" ARMOUR + 2":NEXT X 

CH 1270 IF Y >45 AND Y<66 THEN MTt (LEN (MT$)+1 ) = 
"S SSPEED":NEXT X 

SB 1280 IF Y >65 AND Y<91 THEN MT$ ( LEN ( MT* ) + 1 ) = 
"SWORD +1":NEXT X 

CP 1290 IF Y >90 THEN MT* ( LEN ( MT* )+ 1 >=" SWORD +2 
" :NEXT X 

DC 1300 IF B4 = 0 THEN 1372 

HJ 1310 Y=INT (RND (0) * 100)+1 : IF Y<8 THEN MT* (LE 
N (MT*)+1)="S HEALTH" 

DE 1320 IF Y >7 AND Y<30 THEN MT* ( LEN < MT* ) + 1 ) = " 
S STONES" 

FL 1330 IF Y >29 AND Y<37 THEN MT* ( LEN(MT*>+1) = 
"S CONTRA" 

DL 1340 IF Y >36 AND Y<54 THEN MT* ( LEN ( MT* ) + 1 ) = 
"S FIREBA" 

FK 1350 IF Y >53 AND Y<61 THEN MT* ( LEN ( MT* ) + 1 ) = 
"S ENERGY" 

FD 1360 IF Y >60 AND YOB THEN MT* ( LEN ( MT* ) + 1 > = 
"S SEEING" 

10 1370 IF Y >87 THEN MT* ( LEN ( MT* ) + 1 ) = " S BATSHR 

II 


GC 1372 

CE 1377 
AL 1379 
FD 1380 
HP 1385 
EG 1390 

BJ 1395 

BC 1400 

FI 14 10 
HI 2002 
BE 2003 


JF 2005 
HB 2007 
ID 2009 


AC 201 1 


PL 2499 


MG=I NT(RND(0) *B5) 

:B 4 = 0:B5 = 0: IF SSQ 
S=S—GOQ:SH=SH—GOQ 
REM 

? "YOU ARE DEAD!" 
T=10*(GP+(LEN(SC* 
? "YOU HAD ";T;" 
GOSUB 3100 
? "DO YOU WANT TO 
*: IF I * ="Y" THEN 
? "ARE YOU SURE"; 
HEN CLR :RUN 
GRAPHICS 0:END 
REM CETTTiT;»rM71.-^atr: 
DATA GIANT BAT,20 
0,0,2,0,50,GIANT 
BLIN,10,0,1,0,25 
DATA GHOST,10,0,1 
REM C T i H I. I r M SM T lil.diJr : 
DATA HUGE DRAGON, 
0,1,0,1,100,HUGE 
ANT,30,1,0,1,75 
DATA HUGE SPIDER, 
1,0,0,75 
REM 


:B*="":B1=0:B2=0:B3=0 
=1 THEN SSQ=0:SS=SSQ 
: GOQ = 0:GOTO 180 


))+S+SH) 

POINTS":IF HP<1 THEN 

PLAY AGAIN"INPUT I 
CLR :RUN 

:INPUT I*:IF I*="N" T 


,0,2,0,75,WERE—WOLF,2 
SPIDER,10,0,2,0,50,GO 

, 0 , 10 

s 

40,2,0, 1, 150,DRAGON,3 
GIANT,40,2,0,1,100,GI 

40,2,0,1,75,TROLL,30, 
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PD 2500 

GA 2510 
66 2599 
10 2600 


MD 2 610 
IH 2699 
LD 2700 

HI 2710 


HP 2720 
ON 2799 
LE 2800 

HF 2810 

H6 2820 
KC 2899 
FP 2900 

KA 2999 
AL 3000 

OF 3099 
KN 3100 
BN 3 1 1 0 


HD 3120 
KH 3200 
HJ 32 10 
GB 3220 
GO 3230 
IN 3240 
EH 3250 
IC 3260 
LL 3270 
LF 4998 


FOR T=1 TO 2:FOR Tl=15 TO 0 STEP -1:SQ 
UND 0,Bl*3,10,T1:NEXT T1:NEXT T 
FOR T=1 TO 50:NE X T T:RETURN 
REM 

FOR T1=20 TO 5 STEP -IsSQUND 0,INT(RND 
(0)*2)-1+T1,10,10:NEXT TlrSOUND 0,0,0, 
0 

FOR T1=1 TO 50:NEXT T1:RETURN 

rem m-tf-rM-uM-T-prp 

FOR T1=12 TO 0 STEP -l:SOUND 0,T1,8,8: 
NEXT T1:SOUND 0,0,0,0 

FOR T1=1 TO 3:FOR T2=15 TO 0 STEP -4:S 
OUND 0,12,0,T2:NEXT T2:NEXT TlsSOUND 0 
,0,0,0 

FOR T1=1 TO 50:NEXT T1:RETURN 

FOR T1=12 TO 0 STEP -1:SOUND 0,T1,8,8: 
NEXT T1:SOUND 0,0,0,0 

FOR T1 = 15 TO 0 STEP -l:SOUND 0,50,0,T1 
:FOR T2=1 TO 8:NEXT T2:NEXT T1 
FOR T1 = 1 TO 50:NE X T T1:RETURN 
REM 

FOR T1=0 TO 75:SOUND 0,T1,0,10:NEXT T1 

:SOUND 0,0,0,0:RETURN 

REM 

B $ = "":B1=0:B2=0:B3=0:B4=0:B5=0:M T $ = "": 
MG=0:RETURN 

rem 

RESTORE 3200 

FOR T=1 TO 28:READ T2,T3:S0UND 0,T2,10 
,8*SGN<T2):FOR T2=l TO T3/2:NEXT T2:S0 
UND 0,0,0,0:FOR T2=l TO 6:NEXT T2 
NEXT T:RETURN 

DATA 108,50,108,25,81,150,0,25 
DATA 108,50,81,25,64,150,0,25 
DATA 108,50,81,25,64,75 
DATA 108,50,81,25,64,75 
DATA 108,50,B1,25,64,150 
DATA 81,50,64,25,53,150,0,25 
DATA 64,50,81,38,108,150,0,25 
DATA 108,50,108,25,81,200 
END 
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Granite Cracker 

Thomas Edwards 


"Granite Cracker" is one of those easy to play, but hard to master 
games. Most players will do okay, but few will do really well 
without a great deal of practice. Requires a joystick. 

Zarnog 5 was a great intergalactic space port. Thousands of 
ships arrived and departed every day. But, suddenly, tragedy 
struck. Overnight, hundreds of granite cubes, one mile to a 
side, blocked the spaceways around the planet. Realizing what 
devastating effects this might have on business, the leaders of 
Zarnog 5 created a fleet of giant bouncing jackhammers to 
combat the blocks. However, these machines were very dan¬ 
gerous because they tended to pop out of existence if it took 
long to destroy the blocks. A crash spelled instant death to the 
operator. So the leaders gathered together the best pilots for a 
crack team of jackhammer operators. Now it's your turn to pi¬ 
lot a granite cracker. 

Using the Hammer 

You can move the jackhammer right and left by the joystick in 
port 1. Up-and-down movement is provided by bouncing on 
the granite blocks. If you hit a block by falling from above, it 
will probably destroy the block. If it doesn't disappear, try hit¬ 
ting it closer to the middle. 

Each background color has its own special meaning: 

Black Doing fine. 

Red Watch out! Time is almost up. 

Yellow-Green Oops! You crashed to the ground. 

Blue Oops! Ran out of time. 

When you crash or run out of time, the computer will 
take a few moments to see how many blocks are left. If none 
is left, you get to play another screen. If some blocks are left 
on the screen, the computer will tell you your score, and 
you'll be able to play again or change parameters. 

More Bounce 

To start the game just press the START key. You'll be given 
the option of changing the horizontal and vertical speed and 
the bounce factor. To make the game a bit easier, raise the 
bounce factor. 
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"Granite Cracker" is a game that takes some practice, es¬ 
pecially if the bounce factor is low. 

Granite Cracker 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

GJ 0 DIM PM1$ ( 128) , HAM$ ( 16) , CLEAR* ( 128) 

HA 1 L 1 = 1 : t_2 = 1 : L3 = 8 
HI 4 REM SET SPEEDS 
HE 5 Ll=l:L2=l:L3=8 
HJ 10 GOSUB 620 
IA20 GOSUB 680 

CH 29 REM UPDATE LEVEL AND PREPARE SCREEN 

JF 30 L5 = L5+1 : GRAPH I CS 3+16:C0L0R 1 : POKE 710,0 

AL 40 FOR 1 = 1 TO 60 

KH 4 1 X=INT(38*RND(0)+2):Y=INT(19*RND(0)+4):LO 
CATE X,Y,Z:IF Z<>0 THEN 41 
EE 42 PLOT X , Y: NEXT I 
OK 50 Q = - 1 : COLOR 0 
BC 59 REM SET TIMERS 

LA 60 POKE 18,0: POKE 19,0:POKE 20,0 
LH 69 REM SET UP JACKHAMMER 
JO 70 SIZE1 = 16: SC = 0: C = 0 
IH 80 RESTORE 

BI 90 FOR ROWS= 1 TO SIZE1 
OH 100 READ DOTS 

GI110 HAM$(ROWS,ROWS)=CHR$(DOTS) 

BN 120 NEXT ROWS 

EO 130 DATA 0,0,0,0,0 

BI 140 DATA 1 12,32,32,32,32,32 

FA 150 DATA 0,0,0,0,0 

NA 160 FOR ROWS= 1 TO 128: CLEAR* (ROWS, ROWS) = CHR 
$(0):NEXT ROWS 

NF170 A = 4* ( INT (PEEK (742) /4)-1 ) 

EA 180 POKE 54279, A 

NA 190 VSA=256*PEEK(135)+PEEK<134) 

KK 20 0 B0A=256#PEEK ( 141 ) +PEEK ( 140) 

01 210 PM=256*A+512 
JN 220 D I SP = PM-BOA 
HN 230 ADD = 2 

HI 240 PMHIGH=INT (DISP/256) 

EE 250 PML0W=DISP-256*PMHIGH 
GA 260 POKE VSA + ADD, PMLOW 
0L 270 POKE VSA + ADD+1 , PMHIGH 
GJ 280 DISP = DISP+128: ADD = ADD + 8 
FF 290 PM 1 $ = CLEAR$ 

GD 300 POKE 559,46 : POKE 53277,7:P0KE 623,40 
BJ310 C0LR1=25: C0LR2=1 1 : C0LR3 = 74 
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BE 320 POKE 704 , COLR 1 : POKE 705 , C0LR2 : POKE 706, 
C0LR3 

PK 328 REM MAIN GAME LOOP 
MK 329 REM POSITION JACKHAMMER 
KJ 330 X 1 = 1 25: Y1=20+L3*L2 

IB 3 4 0 POKE 53248, X1:IF Y1>0 THEN PM1$(Y1)=HAM 
$:GOTO 360 
Jfl 350 Y1 = 1 

IP 359 REM MOVE JACKHAMMER 

OP 360 Y1=Y1+Q: IF PEEK(53252) THEN GOSUB 460 
AE 370 IF Q = -1 THEN C=C+1:IF OL3 THEN Q=1:C = 0 
EJ 380 X1 = X1+L1* ( X1<47)-LI * (X1 >206) : IF PEEKC19 
) > 1 8 — L 4 THEN SETCOLOR 4,3,2 
BK 3 9 0 IF PEEK ( 1 9 ) >20-L4 THEN POKE 712,114:G0T 
0 500 

CP 400 GOSUB 420 : Y 1 =Y 1 + L2*Q : SOUND 0,Y1+5,10,10 
: IF Y1 >10 3 THEN POKE 712,20:GOTO 500 
6F 4 1 0 GOTO 340 
Hfl 4 19 REM GET STICK INPUT 
CF 420 S = STICK (0) 

fIB 430 D X = (S = 5 OR S = 6 OR S = 7)-(S = 9 OR S=10 OR 
S= 1 1 ) 

FF 440 X1=X1+L1*DX 

HJ 450 RETURN 
6B 459 REM ERASE BLOCK 
CP 460 POKE 53278, 1 

DH 470 PLOT ( X 1 *0.245 ) - 1 1 , ( Y 1 *0.2352)-2 : PLOT ( 
X1 * 0.2453)—1 1, ( Y 1 * 0 .2352)—1 :Q = —1 
PN 4 80 SOUND 0,100,2,10 
HN 490 RETURN 
Ofl 499 REM GAME OVER 
GC 500 SOUND 0,0,0,0 
FI 5 1 0 HAM$ = CLEAR$ 

FP515 POKE 77,0: POKE 53248,0 

FM 52 0 POKE 53277,0:FOR X = 4 TO 23:F0R Y= 1 TO 3 
9:LOCATE Y,X,Z:SOUND 0,10,10,14*Z:SC=SC 
+ Z:SOUND 0,0,0,0:NEXT Y:NE X T X 
KM 530 GRAPHICS 1 + 16 

LB 540 SF=SF+(60-SC)*100*L5:IF SC = 0 THEN POSIT 
ION 1,1:PR I NT #6;"Y0U GET AN EXTRA":GOT 
0 860 

GH 550 POSITION 2,1:PRINT #6; "score: SF 

HA 560 POSITION 1,5:PRINT #6;"press £51 33331 to" 
-.POSITION 1,6 : PR I NT #6;"change speed." 

FE 570 L5 = 0: POSITION 1,10:PRINT #6;"press 
Ei to" 

GG 580 POSITION 1,11:PRINT #6;"start game." 

JH 590 P = PEEK (53279) : IF P = 3 THEN SF = 0:GOSUB 68 
0:GOTO 30 

PD 600 IF P = 6 THEN SF = 0:GOTO 30 
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60 6 1 0 GOTO 590 

CD 619 REM TITLE PAGE 

KN620 GRAPHICS 2+16 

BH 630 POSITION 3,3:PRINT #6;"granite cracker" 

: POS I T I ON 2,6: PR I NT #6: " pyais a S m£f:~ggg aPISi 1 :! 

HF 640 POSITION 5,10:PRINT #6;"PRESS E535TS 1" : PO 
SITION 6, 11:PR I NT #6;"T0 BEGIN " 

CD 650 FOR 1=0 TO 15:SETC0L0R 0, I , I : SETCOLOR 1 
, 15-1 , 15-1:SOUND 0, I * 10,4, 10:SOUND 1,J, 
6, 10:J = J + 1:J = J# (J<>100) :NEXT I 
CN 6 60 IF PEEK ( 53279 ) =6 THEN RETURN 
HB 670 GOTO 650 
CE 679 REM CHANGE PARAMETERS 

HJ 680 GRAPHICS l:POSITION 3,1:PRINT #6;"H0RIZ 
ONTAL SPEED" 

HI 685 SOUND 0,0,0,0 : SOUND 1,0,0,0 

BD 690 POSITION 4,5:PRINT #6;"VERT I CAL SPEED" 

L0 700 POSITION 4,8: PRINT #6; "BOUNCE FACTOR” 

(18 7 1 0 POKE 710,0 : PR I NT "PRESS OPTION FOR HORI 
ZONTAL SPEED":PRINT "PRESS SELECT FOR V 
ERTICAL SPEED ."; 

GO 720 PRINT “USE THE JOYSTICK FOR BOUNCE FAC 
TOR": POKE 752, 1 

PC 730 PRINT "PRESS START TO START"; 

KH 740 POSITION 10,2:PRINT #6;L1 
KN 750 POSITION 10,6:PRINT #6;L2 
DB 760 POSITION 10,9:PRINT #6;L3;" " 

GL 770 SOUND 0,0,0,0 

AC 780 P = PEEK (53279) : IF P = 7 THEN 820 
ON 790 IF P = 3 THEN L 1 = 1+( L 1 = 1 ): SOUND 0,L*100+5 
0,10,10:FOR 1=1 TO 20:NEXT I:GOTO 740 
BK 800 IF P = 5 THEN L2= 1+( L2= 1 ): SOUND 0,L*100+1 
50,10,10:FOR 1=1 TO 20:NEXT I:GOTO 740 
HJ 8 1 0 RETURN 

HO 820 IF ST I CK ( 0 ) = 1 5 THEN GOTO 740 
AI 830 S = STICK (0) : L3 = L3-(S=13) + (S=14) :L3 = L3+13 
* <-(L3=14) + <L3 = 0> ) 

LA 840 SOUND 0 , L3 * 1 9 , 1 2 , 1 0 

HB 850 GOTO 740 

HO 859 REM EXTRA SCREEN 

0C 860 POSITION 1,2: PR I NT #6; "screen ! " 

HP 8 65 FOR 1 = 1 TO 30:FOR J=1 TO 20 * RND ( 1 ) : SOUN 
D 0,I+10*RND(1),10,8:NEXT J:NEXT I 
SP 870 SOUND 0,0,0,0: POKE 19,0:L4 = L4 + 2 
HJ 880 SC = 0 : GOTO 30 
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Pits of Pluto 

Michael Dean, Jeff Destefano, Jeff Scammaca, and 
Timothy Shaw 


Using simple graphics and scrolling, "Pits of Pluto” demonstrates 
some interesting BASIC programming techniques. Requires a 
joystick. 

Your mission is to move to the bottom of the pit without run¬ 
ning off the screen and avoid the obstacles that seem to ap¬ 
pear as you move lower in the pit. You'll have to press your 
control (the joystick button) to see if you've reached the 
bottom. 

Selecting a Pit 

When the game starts, pick the level of difficulty by pressing 
SELECT. Levels 1 and 2 are not very difficult, but don't be 
fooled by the ease of the lower levels. Levels 7, 8, and 9 will 
make you a bit more humble. Choose random or staggered la¬ 
ser gates by pressing OPTION. Pressing the START key be¬ 
gins your mission. 

You have only one chance. 

The higher the level, the longer and more difficult the 
course. Besides red missiles, blue pods are added at level 4, 
and anti-jeff bombs are included at level 7 and up. 

When you reach the core of Plutonian Headquarters, fly 
to the bottom and use the joystick trigger. 

Pits of Pluto 

For error-free program entry, read “The Automatic Proofreader," Appendix C, before typing 
in this program. 

PI 10 GRAPHICS 23:ST=PEEK(741)+256*PEEK(742):P 
OKE ST+8,7:POKE ST+9,6 

DE 20 DIM A* ( 256> ,J <16,2 ) :POKE 559,46:P0KE 704 
,24:POKE 53260,3: I=PEEK(106) -24:POKE 542 
79,I:POKE 53277,3 

NB30 POKE 53256,1:VT=PEEK(134)+256*PEEK<135): 
A T = P E E K(140) +256#PEEK(141 ) :OF=I#256+384— 
AT:T=1:L=1 

GA40 HI = INT (OF/256) :L0=0F-HI*256:P0KE VT + 2,L0 
:POKE V T + 3,HI 

PA 45 FOR X = 1 TO 15: READ A: J (X, 1 ) = A: NEXT X:FOR 
X=1 TO 15:READ A : J ( X,2)=A:NEXT X 
KO 50 COLOR 2: PLOT 0,3:DRAWTO 0,95:PLOT 159,3: 

DRAWTO 159,95 
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CF 65 SETCOLOR 0,0, 10: SETCOLOR 1,8,6 : S E TC OLO R 
2,1,12:C0L0R 1 :FOR X = 1 TO 43:PL0T RND(0) 

* 159,RND (0) *90 + 5:NEXT X 
DJ 66 SOUND 0,0,0,0 

LD 70 POKE B7,0 : POS I T I ON 4,2:? " r Orfc 4 --« f T ga g 3rr rE7r " 

:PQSITI ON 22,2:? S:POSITION 34,2:? HS:PO 
KE 87,7:SETCOLOR 3,12,8 
ED 75 COLOR 2:PL0T 0,95:DRAWTO 58,95:PL0T 90,9 
5:DRAWTO 159,95:PL0T 0,3:DRAWTO 159,3 
C! 80 IF PEEK (53279) =3 THEN T = -T 
HN 84 IF T = 1 THEN SETCOLOR 3,12,8 
HP 88 IF T = - 1 THEN SETCOLOR 3,4,8 
NN 90 IF PEEK. (53279) =6 OR STRIG(0>=0 THEN GOTO 
99 

HH 95 POKE 87,0 : POS I T I ON 29,2:? " H" ; L : I F PEEK ( 

53279)=5 THEN L=L+1:IF L=10 THEN L=1 
Bfi 9 6 GOTO 80 

CJ 99 X=120:Y=40:N=59:M=0:Z=30 
KE 100 IF Y > 1 12 THEN Y=112 

BF101 A$ (Y+12B, Y+144) =" 12 ,I<-fBIBACK SI<f[g 

C2 ,J":POKE 53248,X:SOUND 0,Y#2+30,8,8 
PD 105 SETCOLOR 2,0,0:SOUND 1,0,0,0 

LL 110 X = X+ J (STICK (0) , 1) : Y = Y + J (STICK (0) ,2) :POK 
E 53278,0 

CH115 Z=Z-0.04: S = S+1 : IF ZK28-L THEN GOTO 200 

KP 120 PLOT 0,4 : POKE 87,0 : POS I T I ON 0,4:? " 

I DEL LINED- POSITION 22,2:? S:POKE 87,7 
:N = N + M: COLOR 1 :PLOT 0,95:DRAWTO N-1,95 
Pfl 122 X = X + J (STICK (0) , 1) : Y = Y +J (STICK(0) ,2) 

PA 125 PLOT N + Z+ 1,95 : DRAWTO 159,95:C0L0R 2:PL0 
T N-l,95:PLOT N+Z+1,95:IF RND(0)>0.94 T 
HEN M = 0 

HE 130 IF N > 1 0 9 OR RND(0)>0.99 THEN M = -l 
HJ 13 2 IF RND (0) >0.98 THEN K=l:COLOR 3:PL0T N, 
95:DRAWTO N+Z,95:PL0T N,94:DRAWT0 N+Z,9 
4:COLOR 2:PL0T N-5,95 

01134 IF K = 1 THEN DRAWTO N,95:PL0T N + Z,95:DRA 
WTO N+Z+5,95:PLOT N-5,94:DRAWTO N,94:PL 
OT N+Z,94:DRAWTO N+Z+5,94:K=0 
OF 135 IF N < 5 OR RND(0)>0.99 THEN M=1 
NM 140 G = G+1 : IF T=1 AND G=INT(Z/3) THEN SETCOL 
OR 2, 1 , 10:SOUND 1,22, 14, 10:G = 0 
FA 145 IF T = — 1 AND I N T ( R ND ( 0 ) * ( Z / 3 ) ) = I N T ( Z / 3 ) 
THEN SETCOLOR 2,1,10:SOUND 1,22,14,10 

AI 150 C = PEEK (53252) : IF C = 2 OR C = 3 OR C = 5 OR C 
=7 THEN GOTO 600 

6C 155 IF C = 4 AND PEEK(710>=26 THEN GOTO 600 
B! 170 IF PEEK (53279) =6 THEN GOTO 600 
ON 1 99 GOTO 1 00 
0L 200 H = N + Z : Z=0 
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KL210 A $ (Y+128, Y+144) = " {2 ,XfB£BACK SXfg 

<2 ,}":POKE 53248,X:X=X+J(STICK(0),1):Y 
= Y + J (STICK (0) ,2) :SOUND 0,Y*2+30,8,8 
CA 220 PLOT 0,4 : POKE 87,0 : POS I T I ON 0,4:? " 

C DEL LINE}POSITION 22,2:7 S:POKE 87,7 
: S = S + 1 

EF 230 POKE 53278,0: IF N>10 THEN N = N-1 
JL 235 IF H< 150 THEN H = H+1 

NC 240 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 
, 95 

GF 247 Z = Z +1 : IF Z >90 AND N<12 AND H>148 THEN G 
OTO 300 

DN 250 IF PEEK (53252) < >0 AND PEEK ( 53252 )< >4 TH 
EN GOTO 600 
61 255 GOTO 210 
PD 300 Z = 0: SETCOLOR 2,4,6 

LA 305 A$ (Y+128, Y+144) =" C2 ,XfBCBACK SX-fg 

<2 ,}":POKE 53248,X:X=X+J(STICK(0),1):Y 
=Y+J(STICK(0),2):SOUND 0,Y*2+30,8,8 
CA310 PLOT 0,4: POKE 87,0 : POS I T I ON 0,4:? " 

C DEL LINE}POSITION 22,2:? S:POKE 87,7 
: S = S+1 

IP 320 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 
,95 : POKE 53278,0 

CJ 325 IF L >3 AND RND(0) >0.9 —L/99 THEN COLOR 2 
:W = RND(0) * 133+13:PLOT W,94:PL0T W + 2,94: 
PLOT W+1,95:PLOT W+1,93 
ED 330 IF RND(0) >0.9-( Z/50) /99 THEN W=RND(0>*1 
34+12:COLOR 3:PL0T W,95:DRAWT0 W,92:PL0 
T W+2,95:DRAWTO W+2,92:K=1 
OC 335 IF K= 1 THEN PLOT W+1,94 : DR A WTO W+1,90:K 
= 0 

HP 337 IF L >6 AND RND ( 0 ) >0.9-L / 99 / 2 THEN W = RND 
(0) * 120 + 13:COLOR 1:PLOT W,B1:DRAWT0 W,8 
1+L:PLOT W-L/2,81+L/2:K=1 
HE 338 IF K= 1 THEN DRAWTO W + L / 2,8 1 + L / 2 : K = 0 
CA 340 Z = Z+1: IF Z>L*50 THEN GOTO 350 
El 343 IF PEEK (53252) < >0 THEN GOTO 600 
GN 345 GOTO 305 

Cl 350 FOR Q= 1 TO 90:PLOT 0,4:POKE 87,0:POSITI 
ON 0,4:? "{DEL LINE}":POKE 87,7:P0KE 53 
278,0 

KM 352 IF Y > 1 1 2 THEN Y=112 

IF 355 A $ (Y+128, Y+144) = " 12 , }<f BCBACK SX-fg 

C2 ,}":POKE 53248,X:X=X+J(STICK(0),1):Y 
= Y + J ( ST ICK(0) ,2) :SOUND 0,Y*2+30,8,8 
EN 357 IF PEEK (53252 )< >0 THEN GOTO 600 
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PN360 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
•.DRAWTO 159,95: COLOR 2:PL0T N,95:PL0T H 
,95:NEXT Q:Q=79:W=B0 

EB 400 COLOR 3: SETCOLOR 2,12,8:F0R 9=10 TO -10 
STEP -1:K = SGIM(9) 

KP 408 IF Y > 1 1 2 THEN Y=112 

IS 410 A$ ( Y+128, Y+144) = " C2 ,}<-fB{BACK SXfS 

I2 ,>":POKE 53248,X:X = X + J(STICK(0),1):Y 
= Y + J (STICK (0) ,2) 

GH 420 PLOT 0,4 : P 0 K E 87,0 : POS I T I ON 0,4:7 " 

{DEL LINE}":POKE 87,7 

Bh 425 IF PEEK (53252) < >0 THEN POKE 53278,0: GOT 
0 600 

KP 430 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
-.DRAWTO 159,95: COLOR 2:PL0T N,95:PL0T H 
,95:COLOR 3 

LN 435 Q = Q-K: W = W + K: PLOT Q,95:DRAWT0 W,95:NEXT 
V 

CC 450 FOR 9=1 TO 25:N=N+1:H=H-1 

HE 453 PLOT 0,4:POKE 8 7,0 : P OS I T I ON 0,4:7 " 

{ DEL LINE}":POKE 87,7 

flK 455 COLOR 1 : PLOT 0,95:DRAWTO N,95:PL0T H,95 
:DRAWTO 159,95:C0L0R 2:PL0T N,95:PL0T H 
, 95 

BM 457 IF PEEK ( 53252 )< >0 THEN POKE 53278,0:GOT 
0 600 

LE 458 IF Y > 1 12 THEN Y=112 

LC 460 A$ (Y+128, Y+144) =" 12 ,}<-fB{BACK S}<-fS 

12 , > " :POKE 53248,X:X = X + J(STICK(0) , 1): Y 

= Y + J (STICK(0) ,2) :SOUND 0,Y*2+30,B,8 
EG 465 NEXT 9:C0L0R 2:PL0T N,95:DRAWT0 H,95:C0 
LOR 1:FOR 9=1 TO 25 

HH 467 PLOT 0,4:POKE 87,0 : POS I T I ON 0,4:7 " 

{DEL LINE}":POKE 87,7 
LF 468 IF Y > 1 1 2 THEN Y=112 

JB 469 A $ (Y+128, Y+144 ) = " {2 ,}<-fB{BACK S}<-fS 

{2 , }":POKE 53248, X : X = X+J (STICK (0) , 1):Y 

=Y+J(STICK(0),2) 

LH 470 PLOT 0,95: DRAWTO 159,95:NEXT 9 
KI500 IF Y >1 1 2 THEN Y=112 

KO510 A$(Y+128,Y+144>="{2 ,}<fB{BACK SKPi 

{2 , }":POKE 53248, X: X = X + J (STICK (0) , 1):Y 

= Y + J (STICK(0) ,2) :SOUND 0,Y*2+30,8,B 
El 550 IF PEEK (53252) < >0 THEN GOTO 600 
JK 560 IF X< 120 AND STRIG(0)=0 THEN GOTO 700 
HF 599 GOTO 500 
HK 600 REM 

GI610 POKE 87,0: IF S>HS THEN HS = S: POS I TI ON 34 
,2:7 HS 
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IIL620 SOUND 0,0, 0,0: Z=40: S = 0: POKE 704,72:FOR 
V=1 TO 9:A$ (V+12B + Y)=CHR*(RND (0) *255) :S 
OUND 1 ,V*5,6, 10:NEXT V 
KC 630 SOUND 1,0,0,0:POSITI ON 0,0 

OG 640 IF PEEK (53279) =6 OR STRIG<0)=0 THEN POK 
E 704,10:? "CCLEARJ":POKE 87,7:A$(12B+Y 

, 144 + Y)="Cl 1 ,>":GOTO 65 
HL 699 GOTO 640 
HL 700 REM 

LO710 POKE 87,0: POSITION 4,2:? " 

" : H = 0 

LE 720 HS = L*500 + 500: POSITION 34,2:? HS:POSITIO 
N 22,2:? L*500+500:POSITION 0,0 
JB 730 H = H+1: IF H=255 THEN H = 0 
HF 740 Y= 1 1 2 

PR 750 IF PEEK (53279) =6 THEN POKE 704, 10:? " 

CCLEARPOKE 87,7:At(128+Y,144+Y)=" 

£12 ,J " :Z = 40:S = 0:GOTO 65 

DE 760 SOUND 0 , H , 1 4,8 : POKE 710,H 
HB 770 GOTO 730 

HL 999 DATA 0 , 0,0,0 , 1 , 1 , 1,0 , - 1 , - 1 , - 1,0,0,0,0,0 
,0,0,0,1,-1,0,0,1,-1,0,0,1,-1,0 
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The Catacombs of 
Your Mind 

Doug Wheeler 


This graphics-based adventure game has all the features of an 
adventure plus graphics that produce a visual image of the games 
maze. Requires 32K without a disk drive (48K if you use a disk) 
and a joystick. 

You are about to enter a world that exists only within your 
mind and on the video screen before you. It takes the form of 
a large, complex maze and contains many monsters. The 
methods you need to destroy these monsters are also found 
within the catacombs. 

The opaque green door leading to the outside is com¬ 
posed of an almost indestructible material. It can be destroyed 
only by magical means. 

All items needed to complete your journey must be found 
within the boundaries of the maze. No items will be brought 
into the maze and none will leave. 

You must perform a very specific set of steps before you 
can pass through the door which leads out of this world and 
back to reality. 

The Adventure 

This is a graphics-based adventure game for Atari computers 
with at least 32K bytes of memory (48K if you are using a disk). 

In calling this a graphics-based adventure game. I'm saying 
that it has all the features of a text adventure, plus graphics. 
The graphics consist of the view from your position within a 
mazelike labyrinth where you can see four locations ahead of 
you. A location is any position at which you may reside and 
where hallways may lead off in other directions (other than 
the direction you are currently facing). 

You move about this labyrinth by using a joystick 
plugged into port 1. Pushing the joystick forward will move 
you one location in the direction you are facing. Moving the 
joystick to the left or right turns you in the corresponding 
direction, while you remain in your current location. Pulling 
the joystick toward you causes you to turn around and face 
the opposite direction. If you should fall into one of the many 
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pits located throughout the catacombs, you will fall into an¬ 
other of the 360 locations in the catacombs, and you may even 
change direction. 

Text Input 

If, at any time, you wish to do something other than move 
around with the joystick, type in a command on the keyboard 
of the computer and press RETURN. This command must con¬ 
sist of two words: a verb and a noun, in that order. The ob¬ 
jects required to complete your journey are placed at certain 
locations in the catacombs. The objects are inside yellow 
boxes. By moving to the same location as a box, you can open 
it and examine its contents. If you type OPEN BOX, the com¬ 
puter will respond with a description of the object contained 
in that box. You can then get the object by typing GET fol¬ 
lowed by the name of the object. After playing the game sev¬ 
eral times, you may get to know where certain objects are, in 
which case you can move to the location of the object and get 
it without having to open the box. 

Many other verbs and nouns exist, but part of the fun of 
playing any adventure is discovering what you can and cannot 
do in any given situation. 

Two other commands which you should know are IN¬ 
VENTORY (or INV) and QUIT. INV gives you an inventory of 
all the items that you possess, including the items you are 
wearing. You have a limit of ten items which can be held at 
once. QUIT allows you to end your current game. After typing 
QUIT, you're asked to verify your command, type in your an¬ 
swer, and press RETURN. If you type YES, the program will 
exit to BASIC. If you type NO, you will be returned to your 
present location within the labyrinth. 

Monster Encounters 

Monsters are located throughout the catacombs. Their only 
purpose is to try to destroy you. When you meet one of these 
monsters, there is usually only one or two things you can do 
to destroy it. You may not leave that location until either you 
or the monster is destroyed. Any attempt to leave is inter¬ 
preted as an offensive action and will only speed your death. 

Another problem is that you have only three turns in 
which to destroy the monster—or it'll get you. 
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Typing Note 

Lines 10000-10419 contain the DATA for the rooms. Each 
DATA line has just four numbers. Don't change the line num¬ 
bers or try to consolidate the DATA into fewer lines. The RE¬ 
STORE statement is used to READ the proper DATA for the 
current room position. 

The Catacombs of Your Mind 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

010 DIM A* < 15) : GOSUB 32676 
ML 1 GOTO 10 

MH 4 IF P*=" " THEN RETURN 

FF 5 FOR P = N 1 TO LEN ( P* ) : J = ASC ( P* < P , P ) ) ; ? CHR$ 
<ABS<J+<1B7-N2*J)*(J>64 AND J< 123)));:NEX 
T P:? :RETURN 

DE 6 :IF V0*="" THEN RETURN 

CM 7 FOR P = N 1 TO LEN(V0$) :J=ASC(V0$(P,P) ) :V$(|_ 
EN < V$ )+N1)= CHR$(ABS < J +(187-N2*J)* ( J >64 AN 
D J<123)>):NEXT P:RETURN 
OM 10 N0=0:Nl=l:N2=2:N3=3:N4=4:CR=192:CD=N1:NO 
=N0:POKE 764,255:N205=205:MN=5:KC=0 
00 15 DIM V$(20) ,V0$(20) ,P$(300) ,D ( N4,N4) ,P(4) 
, PI (4) ,PD(4) 

#E 20 GOSUB 20000: REM {!£> {F5> n: fcg* 

cs> 

CO 100 GRAPHICS 7: GOSUB 32676:C0L0R N3:P0KE 75 
2,1:FOR A=0 TO 4:F0R B=0 TO 4:D(A,B)=0: 
NEXT B:NE X T A 

6 K 105 FOR A = 0 TO 4:IF P(A)=CR AND 0(11)0-2 T 
HEN CR = P1 (A) :CD = PD(A) :GOTO 110 
BI 107 NEXT A 

CP 110 RESTORE 10000 + CR: READ A , B , C , D : D ( N0 , N 1 ) = 
A:D(N0,N2)=B:D(N0,N3)=C:D(N0,N4)=D 
GM115 IF D (N0, CD) =N0 THEN 150 

DH 120 FOR E = N 1 TO N4 : RESTORE 1 0000 + D ( E-N 1 , CD ) 
: READ A,B,C,D:D(E,N1)=A:D(E,N2)=B:D(E,N 
3)=C:D(E,N4)=D 
DE 125 IF D ( E , CD ) =N0 THEN 150 
BI 130 NEXT E 
CJ 150 IF CD = N 1 THEN 200 
GB 153 TRAP 1 00 

MC 155 FOR B = 1 TO CD-l:FOR A = 0 TO 4:C = D(A,N1): 

D(A,N1)=D(A,N2):D(A,N2)=D(A,N3):D(A,N3> 
=D(A,N4):D(A,N4)=C:NEXT A:NEXT B 
MH 156 TRAP 40000 
IK 200 GOSUB 31000: GOSUB 9100 
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JL 205 ST = STICK (0) : IF ST<>15 AND MF< >0 THEN BO 
SUB 9000:KC=KC-1:GOTO N205 
NL210 IF ST= 1 1 THEN CD=CD+1:IF CD>4 THEN CD = C 
D-4 

LA 215 IF ST = 7 THEN CD = CD-1:IF CD< 1 THEN CD = CD 
+ 4 

NP 220 IF ST= 13 THEN CD = CD + 2:IF CD>4 THEN CD = C 
D-4 

GH 230 IF ST= 14 AND D(N0,N1><>0 THEN CR = D(N0,N 
1 ) 

OH 2 40 GOSUB 15000 

AG 250 ON < ST=15) +1 GOTO 100,N205 
FC 300 IF LEN(V0*)<3 THEN V 0 $ (LEN ( V 0 $ ) +1 ) =" 
GOTO 300 

AB 302 ? " {CLEAR! " ; : GOSUB 6 : V0*=V* < LEN ( )-2) : 

V$=V*(1,3) 

GP 305 IF VtO'Tkv" THEN 400 
JK310 IF V0t< >"yl c " THEN 350 

LH315 FOR A = 1 TO 19:IF OtAIOCR THEN NEXT A: G 
OTO 349 

HP 320 ? "The box contains a: ";:P$=0$((A-1)*1 
5+1 , <A-l) * 15+15) 

NJ321 IF P$<1,1)=" " THEN Pt = P$ (2) : GOTO 321 

KG 32 5 GOSUB 4:G0T0 N205 

IB 347 ? " -CCLEARJ (DOWN) You can’t do that ! ":FOR 

A=1 TO 200:NEXT A:GOTO N205 
NH 34 8 ? " {CLEAR! {DOWNJYou don’t have that!":F 
OR A=1 TO 200:NEXT A:? "{CLEARGOTO 
N205 

CB 349 ? " {CLEAR} {DOWN! I don’t see that here!" 

:FOR A=1 TO 200:NEXT A:? " {CLEAR}"; :GOT 

O N205 

LH 350 IF <V0$<>"1xp " AND V0*< > " 1 1 i " ) OR CR< >4 
3 OR CD< >N1 THEN 349 

AP 355 IF 0(17)00 THEN P$=''bLF WLM’G SZEV GSV 
PVB!":GOSUB 4:F0R A=1 TO 200:NEXT A:? 

"{CLEAR}GOTO N205 
BA 360 CR = 359: GOTO 100 
HE 400 IF V$<>"tvg" THEN 450 

BH 405 FOR A = N0 TO 18: IF V0$ = O$ ( A* 1 5+1 3 , A* 1 5+1 
5) AND 0(A+N1)=CR THEN B=A:GOTO 425 
EO410 NEXT A: IF V0*="ylc" THEN ? "It is secur 
ely bolted to the f1oor.":GOTO N205 
GP 420 GOTO 349 

LL 425 GOSUB 9000: IF MF< >0 THEN GOSUB 9100:GOT 
O N205 

LJ 4 30 IF N0= 10 THEN ? "You can carry no more. 

":GOTO N205 

BL 435 ? "OK. " :0(B + Nl )=N0:N0 = N0 + N1:GOTO N205 . 
HO 450 IF Vt<>"ivz" THEN 510 
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KG 451 IF V0$O"ovg" THEN 460 
HH 452 IF Q ( 7 ) < >N0 THEN 348 

GP 455 IF 0 ( 7 ) =N0 THEN PJ="gL TVG DSVIV GSRMV 
IVUOVXGRLM 0RVH,E3 SPACES}XZOO GL GSV T 
IVZG xGSFOSF GSV DRHV.":GOSUB 4:G0T0 N2 
05 

JO 456 IF V0$="avg" THEN 0(7)=-l:G0TG N205 
PH 460 IF V0JO"a 1" THEN 480 

JC 463 IF 0(3)00 OR CR< >273 OR CDOl THEN 470 
HL 465 SF 1 =SF 1 - 1 : IF SF1=0 THEN P$="{CLEAR} 

{DOWN } g SV HXILOO WRHZKKVZIH! ! " : 0 < 3 ) = - 1 
KC 467 GOTO 8000 
HE 470 IF 0(3)00 THEN 347 

FH 475 P $ = " (CLEARJgSRH YVRMT GSV WRHRMGVTI ZGRL 
M HKV 00{3 SPACESJ LU GSV DRAZIW aLILZHGV 
I, RG HSLFOW YV FHVW DRHVOB!":GOSUB 4 
LP 476 GOTO N205 

CC 4 80 IF V0t<>"o 2" OR 0(6)00 THEN 347 
EG 485 IF 0(6)00 OR MF< >4 THEN 500 

EP 490 0 (6 ) =- 1 : GOTO 9500 
HB 500 IF 0(6)00 THEN 347 

KG 505 P $ = " g S V RMHX IRKGRLM DRGSRM HSZOO KILGVX 
G GSV YVZIVI UILN GSV FMWVZW FKLM YVRM 
T IVZW. " :GOSUB 4 
LJ 506 GOTO N205 
GK510 IF V$< >"rme" THEN 550 

AB 51 2 GRAPHICS N0:GOSUB 32676:P0KE 752,1:7 " 
{CLEAR} 12 DOWN} INVENTORY":? "C9 M}" 
0L515 FOR A= 1 TO 19:IF O(A)<>0 AND 0(A)<>-2 T 
HEN 535 

CF 520 P$ = 0*((A-1)*15+1, (A—1) *15+15) 

OF 525 IF P*(l,l)=" " THEN P$ = P$ (2) : GOTO 525 

EH 530 GOSUB 4 

HI 535 NEXT A:? :? "{3 SPACESIPRESS Pr a T i * ! rL ' TO 
CONTINUE" 

HN 540 CLOSE #1:0PEN # 1,4,0 , " K " : GET #1,A:CL0SE 
#1:G OT 0 100 

LH 550 IF V$< >"kfg" AND Vt< >"wi 1 " THEN 580 
JP 555 FOR A = N0 TO 18:IF V0 $ = 0$ ( A * 1 5+ 1 3 , A * 1 5 + 1 
5) AND ( 0 ( A + N1)=0 OR 0 (fi + Nl)=-2) THEN 5 
70 

LL 55 6 IF V0$ = "lhv" AND O(19)=0 AND MF = 9 THEN 
P$="gSV NLHTLLHV ZGGZXPH GSV XLYIZ.":GO 
SUB 4:O ( 19)=-N1:GOTO 9500 
KC 557 IF V0$="orx " AND 0 ( 1 0 ) = N 0 AND NF=11 THE 
N 0( 1 0)=-N1:GOTO 9500 

FG 558 IF V0$=”nl i " AND O(16)=N0 AND MF = 8 THEN 
P $ ="g S V IFHG NLMHGVI LEVI-HGFUUH SRNHV 
OU. ”:GOSUB 4:0 ( 16)=-N1:GOTO 9500 
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JC 559 IF V0$ = D$ (A*15+13, A*15+15> AND 0(A + N1) = 
-1 THEN 348 
CN 560 NEXT A: GOTO 348 

61 570 FOR B = N1 TO 19: IF 0(B)=CR THEN ? "The h 
all is too crowdedGOTO N205 
PD 575 NEXT B:0(A+N1>=CR:NO=NO-N1:7 "OK.":GOTO 
N 2 0 5 

60 580 IF VtO"gsi" THEN 620 

HL581 IF V0$="ixs" AND TL= 1 AND MF = 56 THEN 0( 
5)=—1:GOTO 9500 

fid 582 IF V0$="vin" AND LL = N1 AND MF = 56 THEN 0 
(8)= — N1:GOTO 9500 
OJ 583 GOSUB 9000 
JH 585 IF V0t< >"i 1 i " THEN 600 
HE 590 IF 0 ( N 1 ) < >0 THEN 348 

(1C 595 ? "gSV NRIILI HSZGGVIH RMGL NROORLMH LU 
GRMB KRVXVH ! ":0(N1)=-N1:N0 = N0-N1:G0SU 
B 4:GOTO N205 

KH 600 IF V0tO"orm" THEN 616 
PF 605 IF 0 ( 1 4 ) < >N0 THEN 348 

IK 6 1 0 IF M ( 10) =CR THEN NO = NO-N 1 : GOTO 9500 
IG615 P$="gSV QZEVORM UORVH WLDM GSV SZOO ZMW 
■C 3 SPACES} HSZGGVIH ZTZRMHG GSV UZI DZOO 




1 H . 

0(14)=—N1 

: NO = NO-N1 :GOSUB 

4:GOTO N205 

LN 

6 1 6 

IF 

V0$<>"mxv 

" THEN 555 


(111 

6 1 7 

I F 

0(91 < >N0 

THEN 348 


BB 

6 1 8 

I F 

M(21=CR THEN N0=N0-1:0(9) 

=—N1:GOTO 9 



500 




KA 

619 

NO = 

NO-N1:? " 

OK.":GOTO N205 


CL 

620 

I F 

V$="fmo" 

THEN 350 


60 

630 

I F 

Vt< >"jfr " 

THEN 670 


JE 

645 

GRAPHICS N0: 

POSITION 4,12:7 

"Are you su 



r e 

you want 

to quit";:INPUT 

At: IF At ( 1, 



1 1 = 

"N" THEN 

100 


FD 

650 

I F 

A$(l, 1)0 

"Y" THEN 645 


LJ 

655 

GRAPHICS N0: 

POSITION 4,12:7 

"Would you 


like to play again";:INPUT At:IF A$(1,1 


)="Y" THEN RUN 
Hd 660 GRAPHICS N0 : END 
IE 670 IF Vt< >"dvz " THEN 715 

EC 675 GOSUB 9000: IF V0t<>"rmt" THEN 695 

ES 680 IF 0(111=0 THEN 7 " OK . " : 0 ( 1 1 ) =-2 : GOTO N 

205 

CJ 685 IF 0(11) = —2 THEN ? "You are already wea 
ring it.":GOTO N205 
HH 690 GOTO 348 

KL 695 IF V0t<>"nli" THEN 347 

EJ 7 00 IF 0(161=0 THEN ? "OK. " : O ( 1 6 1 =-2 : GOTO N 

205 
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CH 705 

HA 7 1 0 
HP 7 1 5 
JC 720 

JB 725 

HC 730 
DI 735 

HD 740 
NC 7 45 


HD 750 
LO 755 
DB 760 

El 765 

HG 770 
HH 775 


HK 780 


HH 785 


KH 790 


BH 795 


PC 800 
IK 805 
OC 8 1 0 
DG 8 1 5 

JG 820 

KP 82 5 
CP 830 


IF 0(16)=-2 THEN ? "You are already wea 
ring it.":GOTO N205 


THEN 735 
AND □(11)=-2 
N205 

AND □<16)=-2 
N205 


THEN 


THEN 


'OK. 


'OK. 


GOTO 348 
IF V$< >"ivn" 

IF V0$="rmt" 

0(111=0:GOTO 
IF V0$="nli" 

0(16)=0:GOTO 
GOTO 348 
IF VtO"ort" 

" THEN 805 

IF V0$O"xsv" THEN 755 

IF 0(121=0 THEN P$="gSV NZGXS UOZIVH FK 
Z MW TLVH LFG. ":GOSUB 4:MN=MN-1:0(12)=- 
1 * (MN = 0) :GOTO N205 
GOTO 248 

IF V0$ < > " i x s " THEN 775 


AND V$< >"rmt " AND V$<>"yfi 


IF O<12>=0 AND 0(51=0 THEN ? "OK.":MN=M 

N - 1 : O ( 1 2 1 =—1JK (MN = 0) :TL=1:G0T0 N205 
IF 0(12)00 THEN P*="bLF WLM’G SZEV NZG 
XSVH.":GOSUB 4:G0T0 N205 
GOTO 34B 

IF V0$="o 1" AND 0(31=0 AND 0(121=0 THE 

N P$="rG YFIMH DRGS Z YIROORZMG UOZNV. " 
:GOSUB 4:0(31=-1:GOTO N205 
IF V0$="o 2" AND 0(61=0 AND 0(121=0 THE 
N p$=“ r G YFIMH DRGS Z YIROORZMG UOZNV. " 
:GOSUB 4:O(61=-1:GOTO N205 


IF V0$="ovg" AND 0(71=0 AND 0(121=0 THE 
N P$=”rG YFIMH DRGS Z YIROORZMG UOZNV." 

:GOSUB 4:0(71=-1 :GOTO N205 

IF < V 0 $ ="g vi" OR V0$="vzi"> AND M(2)=CR 
AND TL=1 OR (M N > 0 AND 0(121=0) THEN 95 
00 

IF V0$="vim" AND MN>0 AND 0(81=0 AND 0( 

121=0 THEN P$="gSV OZMGVIM XLMGZRMH ML 

UFVO.":GOTO N205 

GOSUB 9000:GOTO 347 

IF V $ < >"v z g" THEN 835 

GOSUB 9000 

IF V0$="llw" AND 0(41=0 THEN ? "OK.":0( 
4)= — 1:GOTO N205 

IF V0*="orx" AND 0(101=0 THEN ? "YYEEEC 
CCCHHHI!!":0(101=-1:GOTO N205 
IF V0$<>"1h v" THEN 835 

IF 0(191=0 THEN P$=”rG TVG’H HGFXP RM B 
LFI NLFGS Z MW BLF IVNLEV RG... 1 MV DVG 

NLMTLLHV.":GOSUB 4:G0T0 N205 
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EB 835 IF V$=">:gs" AND V0$="asf" AND 0(7)<1 TH 
EN CR=2:CD = 3 :GOTO 100 

PN 840 IF Vt=" h1 " AND M<6)=0 THEN CR = 58:CD = N1 
:GOTO 100 

FI 845 IF Vt= u zgg" OR V$="pro" THEN 9000 
HF 850 IF V$<>"dze" THEN 870 

HE 855 IF V0$="zmw" AND O(15)=0 AND MF=1 THEN 
9500 

OH 860 GOSUB 9000 
HK 865 GOTO 347 

IG 870 IF V$="slo" AND V0$="ili" AND MF = 3 THEN 
9500 

HL 872 IF V$="sl d " AND V0$<> " i 1 i " THEN GOSUB 9 
000:GOTO 347 


PG 

875 

I F 

V$< >"hdr" 

THEN 

GOTO 

N205 


HL 

880 

I F 

V0$="1iw" 

AND 

M F = 5 

THEN 

9500 

II 

885 

IF 

V0$="tvi" 

AND 

MF = 6 

THEN 

9500 

IG 890 

I F 

V0$="ixs" 

AND 

MF = 7 

THEN 

9500 


OC 900 GOSUB 9000 
Lfl 905 GOTO N205 

PE 8000 GRAPHICS 0:7 "C3 D0WNJG5 SPACESlYou ha 

ve won!":? ”f2 DOWN}You are now standi 
ng just on the edge o-f the trap door y 
ou fell through." 

HP 8010 7 " (DOWNlDo you want to jump back into 

the pit":INPUT V$:IF V*<1,1)="Y" THEN 
RUN 

BH 8020 7 " C2 DOWN} Congratul ati ons ! ! " : END 

IG 9000 FOR A = N0 TO N10:IF V0$ = M$<A* 15+13,A* 15 
+15) AND M(A+N1)=CR THEN 9020 
PG 9005 IF V0$=“gvi " AND M(A+N1)=CR THEN 9020 
PK 9 0 10 NEXT A: KC = KC+1 : IF KC = 3 THEN 9020 
IF 9012 IF MF = 0 THEN KC = 0 
KP 9 0 15 RETURN 

II 9020 POP : GRAPH ICS 0:7 "G3 D0WNII7 SPACES>Y 
ou are dead!!":? "13 DOWNIWould you li 

ke to play again" 

PH 9025 INPUT V$: IF V* < 1 , 1 > = " Y " THEN RUN 
KD 9030 END 

AF 9 100 FOR A~N0 TO 10:IF M(A + Nl)OCR THEN NEX 
T A:GOTO 9125 

BJ 910 5 POKE 657,0:7 "You’re being attacked by 
a " ; :P$ = M$(A*15+1,A*15+15) 

OJ 9 110 IF P*(l,l)=" " THEN P$ = P$ (2,LEN ( P$) ) : I 

F LEN(P$)>=2 THEN 9110 
IE 9115 GOSUB 4 

AD 9120 7 "defend yourself. ":MF = A+1 

NF9125 IF CRO303 OR CD<>1 THEN 9140 
AK 9130 COLOR 2:PL0T 1 02,64 : DRA WTO 102,17:DRAW 
TO 55,17:POSITION 55,64 
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KO 913 5 POKE 765,2:XI0 1 8 , #6,0,0 , " S " : RETURN 
QK 9 14 0 IF CR< >273 OR CD<>1 THEN RETURN 
LO 9 14 5 COLOR 2:PL0T 126,79:DRAWTO 126,1:DRAWT 
0 39, 1 :POSITION 39,79 
KL 9 15 0 POKE 765,2: XIO 1 8 , #6,0,0 , " S " : RETURN 
BH 9500 ? "The " ; : P $ = M $ C (MF-1 ) *15+1 , (MF-1 ) #15 + 
15) 

PJ 9505 IF P$(l,l)=" " THEN P$ = Pt ( 2 , LEN ( P$ ) ) : I 

F LEN ( P$) > = 2 THEN 9505 
ML 9510 GOSUB 4:? "is dead!" 

EH 9515 IF MF = 6 THEN P$="yVULIV SV WRVH SV NFG 
GVIH ’rU BLF DZMGGL OVZEV GSV XOLHVW I 
LLN, QFHG HZB HL.":GOSUB 4 
NC 9585 M (MF) =N0: MF=N0: KC = N0 
PF 9590 GOTO N205 
JO 9999 REM aK3 B J.T,' ZW- 
EP 10000 DATA 0,0,0,0 
IJ 10002 DATA 0,0,32,3 
IK 10003 DATA 0,2,33,0 
LJ 10011 DATA 0,0,41,12 
IE 10012 DATA 0, 11,0,0 
IK 10013 DATA 0,0,43,0 
HC 10014 DATA 0,0,44, 15 
HB 10015 DATA 0,14,0,16 
MG 10016 DATA 0,15,46,0 
ML 10017 DATA 0,0,47,18 
MK 10018 DATA 0,17,0,19 
HP 10019 DATA 0,18,49,0 
LJ 10020 DATA 0,0,50,21 
LI 10021 DATA 0,20,0,22 
LL 10022 DATA 0,21,0,23 
Mft 10023 DATA 0,22,53,0 
ML 10026 DATA 0,0,56,27 
AG 10027 DATA 0,26,57,28 
MP 10028 DATA 0,27,58,0 
10 10032 DATA 2,0,62,0 
IP 10033 DATA 3,0,0,34 
MG 10034 DATA 0,33,64,0 
NB 10037 DATA 0,0,67,38 
NA 10038 DATA 0,37,0,39 
MK 10039 DATA 0,38,0,40 
PL 10040 DATA 0,39,70,41 
Cl 10041 DATA 11,40,71,42 
IK 10042 DATA 0,41,0,0 
JA 10043 DATA 0,0,73,0 
MH 10044 DATA 14,0,74,0 
MO 10045 DATA 0,0,75,46 
MJ 10046 DATA 16,45,0,0 
AM 10047 DATA 17,0,77,48 
BC 10048 DATA 0,47,78,49 
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EH 

1 0049 

DATA 

DB 

10050 

DATA 

(IB 

10051 

DATA 

(IS 

10052 

DATA 

HH 

10053 

DATA 

MO 

10054 

DATA 

UN 

10055 

DATA 

m 

10056 

DATA 

JE 

10057 

DATA 

JG 

10058 

DATA 

(IF 

1 0062 

DATA 

(IK 

10063 

DATA 

EB 

1 0064 

DATA 

NC 

10065 

DATA 

NE 

10067 

DATA 

NJ 

10068 

DATA 

NO 

10069 

DATA 

IK 

10070 

DATA 

IK 

1007 1 

DATA 

PF 

10072 

DATA 

AE 

1 0073 

DATA 

(IK 

1 0074 

DATA 

DH 

1 0075 

DATA 

NG 

1 0076 

DATA 

NF 

10077 

DATA 

AD 

1 0078 

DATA 

AG 

10079 

DATA 

(IF 

10080 

DATA 

PD 

1 008 1 

DATA 

PE 

10082 

DATA 

PH 

1 0083 

DATA 

PK 

10084 

DATA 

AB 

1 0085 

DATA 

NJ 

10086 

DATA 

NK 

10087 

DATA 

AI 

1 0088 

DATA 

PN 

10094 

DATA 

NH 

10095 

DATA 

AF 

1 0096 

DATA 

AK 

10097 

DATA 

AL 

10098 

DATA 

GN 

10099 

DATA 

JC 

10 100 

DATA 

BJ 

10 10 1 

DATA 

FB 

10 102 

DATA 

IC 

10 103 

DATA 

LI 

10 104 

DATA 

PK 

10 105 

DATA 

LO 

10106 

DATA 

CJ 

10 107 

DATA 


19 

, 48 

, 79, 

50 

20 

, 49 

,80, 

51 

0, 

50, 

0,52 


0, 

51, 

82,0 


23 

,0, 

83,0 


0, 

0,84,55 


0, 

54, 

0,56 


26 

, 55 

,0,0 


27 

,0, 

0,0 


28 

,0, 

0,0 


32 

,0, 

0,63 


0, 

62, 

0,64 


34 

, 63 

, 94, 

65 

0, 

64, 

95,0 


37 

,0, 

0,6 B 


0, 

67, 

0,69 


0, 

68 , 

99,0 


40 

, 0, 

0,0 


41 

,0, 

0,0 


0 , 

0,102,73 

43 

,72 

,0,74 

44 

, 73 

,0,0 


45 

,0, 

1 05 , 

76 

0, 

75, 

0,77 


47 

, 76 

,0,0 


48 

,0, 

108, 

0 

49 

,0, 

109, 

0 

50 

,0, 

0,81 


0, 

80 , 

111, 

0 

52 

,0, 

112, 

0 

53 

,0, 

113, 

0 

54 

,0, 

114, 

0 

0, 

0, 1 

15,86 

0, 

85 , 

0,87 


0, 

86 , 

0 , BO 


0, 

87, 

118, 

0 

64 

,0, 

i 24 , 

0 

65 

,0, 

0,96 


0, 

95, 

126, 

0 

0, 

0, 1 

27,98 

0, 

97, 

1 28 , 

0 

69 

. 0. 

1 29 , 

100 

0, 

99, 

0,0 


0, 

0, 1 

31,102 


72,101,0,103 
0,102,133,104 
0,103,0,0 
75,0,135,0 
0,0,0,107 
0, 106, 137,0 
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AD 

10108 

DATA 

JJ 

10 109 

DATA 

LG 

10 110 

DATA 

FF 

10 111 

DATA 

FF 

10112 

DATA 

FL 

10113 

DATA 

PK 

10114 

DATA 

PN 

10115 

DATA 

CL 

10116 

DATA 

CH 

10117 

DATA 

AG 

10118 

DATA 

PL 

10124 

DATA 

CH 

10125 

DATA 

PP 

10126 

DATA 

JJ 

10127 

DATA 

HF 

10128 

DATA 

NL 

10 129 

DATA 

IL 

10130 

DATA 

BK 

10131 

DATA 

CF 

10132 

DATA 

II 

10133 

DATA 

JC 

10134 

DATA 

PH 

10135 

DATA 

CP 

10136 

DATA 

DA 

10137 

DATA 

LA 

10138 

DATA 

JN 

10 139 

DATA 

CD 

10 140 

DATA 

BP 

1014 1 

DATA 

10 

10142 

DATA 

CD 

10143 

DATA 

CK 

10144 

DATA 

CN 

10145 

DATA 

DA 

10146 

DATA 

HE 

10147 

DATA 

DG 

10148 

DATA 

Cl 

10151 

DATA 

CJ 

10152 

DATA 

CO 

10153 

DATA 

CP 

10154 

DATA 

HK 

10157 

DATA 

DF 

10158 

DATA 

DH 

10159 

DATA 

CC 

10160 

DATA 

JB 

10161 

DATA 

PH 

10162 

DATA 

CN 

10163 

DATA 

JK 

10 164 

DATA 

HE 

10165 

DATA 

DG 

10166 

DATA 

198 



78,0,138,0 
79,0,0,0 
0,0,140,0 
81,0,141,112 
82,111,0,113 
83,112,143,0 
84,0,144,0 
85,0,145,0 
0,0,146,117 
0,116,147,0 
88,0,148,0 
94,0,0,125 
0, 124,0,126 
96,125,0,0 
97,0,0,0 
98,0,158,129 
99,128,159,130 
0,129,160,131 
101,130,0,0 
0,0,162,133 
103,132,0,134 
0,133,164,135 
105,134,165,136 
0,135,166,0 
107,0,167,0 
108,0,168,139 
0,138,169,140 
110,139,0,0 
111,0,0,142 
0,141,172,143 
113,142,0,0 
114,0,174,0 
115,0,175,0 
116,0,176,0 
117,0,0,0 
118,0,178,0 
0,0,181,152 
0,151,182,0 
0,0,183,154 
0,153,184,0 
0,0,0,158 
123,157,0,0 
129,0,189,0 
130,0,0,161 
0,160,190,162 
132, 161,192, 163 
0,162,0,164 
134,163,194,0 
135,0,0,0 
136,0,196,0 




K! 10167 DATA 137,0,197,168 
KK 10168 DATA 138,167, 198,0 
DE 10169 DATA 139,0,0,170 
JC 10170 DATA 0,169,200,171 
CK 10171 DATA 0,170,0,172 
IN 10172 DATA 142,171,202,0 
CL 10173 DATA 0,0,203,174 
CP 10174 DATA 144,173,0,0 
CN 10175 DATA 145,0,205,0 
DH 10176 DATA 146,0,0,177 
DM 10177 DATA 0,176,0,178 
Dl 10178 DATA 148,177,0,0 
CE 10181 DATA 151,0,211,0 
JD 10182 DATA 152,0,212,183 
JF 10183 DATA 153,182,213,0 
JL 10184 DATA 154,0,214,185 
DJ 10185 DATA 0,184,0,186 
DF 10186 DATA 0,185,216,0 
DP 10187 DATA 0,186,0,188 
DL 10188 DATA 0,187,218,0 
KG 10189 DATA 159,0,219,190 
CP 10190 DATA 0,189,220,0 
CH 10191 DATA 161,0,221,0 
NE 10192 DATA 162,0,0,0 
NK 10193 DATA 0,0,0,194 
fill 10 194 DATA 164,193,224,195 
KF 10195 DATA 0,194,225,196 
DL 10196 DATA 166,195,0,0 
DJ 10197 DATA 167,0,227,0 
ED 10198 DATA 168,0,0,199 
D6 10199 DATA 0,198,0,200 
IP 10200 DATA 170,199,0,201 
BK 10201 DATA 0,200,231,0 
CE 10202 DATA 172,0,232,0 
CF 10203 DATA 173,0,0,204 
CD 10204 DATA 0,203,234,0 
CN 10205 DATA 175,0,235,0 
CL 10206 DATA 0,0,236,207 
CK 10207 DATA 0,206,0,208 
CP 10208 DATA 0,207,238,0 
FK 10209 DATA 0,0,0,0 
BN 10210 DATA 0,0,240,211 
IF 10211 DATA 181,210,0,212 
IL 10212 DATA 182,211,242,0 
Cl 10213 DATA 183,0,0,214 
JB 10214 DATA 184,213,0,215 
JC 10215 DATA 0,214,245,216 
CP 10216 DATA 186,215,0,0 
NS 10217 DATA 0,0,247,0 
KF 10218 DATA 188,0,248,219 
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DI 

10219 

DATA 

189,218,0,0 

CC 

1 0220 

DATA 

190,0,0,221 

PB 

10221 

DATA 

191,220,251,222 

CB 

10222 

DATA 

0,221,0,223 

C6 

1 0223 

DATA 

0,222,253,0 

Dft 

10224 

DATA 

194,0,254,0 

DB 

10225 

DATA 

195,0,0,226 

JK 

10226 

DATA 

0,225,256,227 

AP 

10227 

DATA 

197,226,257,228 

DD 

10228 

DATA 

0,227,0,229 

CN 

1 0229 

DATA 

0,228,0,230 

CJ 

1 0230 

DATA 

0,229,260,0 

II 

1023 1 

DATA 

201,0,261,232 

II 

10232 

DATA 

202,231,0,233 

JC 

10233 

DATA 

0,232,263,234 

CG 

1 0234 

DATA 

204,233,0,0 

CN 

10235 

DATA 

205,0,265,0 

CO 

1 0236 

DATA 

206,0,0,237 

HG 

1 0237 

DATA 

0,236,0,0 

DG 

10238 

DATA 

208,0,268,0 

FN 

10239 

DATA 

0,0,0,0 

BP 

10240 

DATA 

210,0,0,241 

10 

10241 

DATA 

0,240,271,242 

CD 

1 0242 

DATA 

212,241,0,0 

FI 

10243 

DATA 

0,0,0,0 

DB 

1 0244 

DATA 

0,0,274,245 

JI 

10245 

DATA 

215,244,0,246 

DF 

10246 

DATA 

0,245,276,0 

DG 

1 0247 

DATA 

217,0,277,0 

DH 

1 0248 

DATA 

218,0,0,249 

KF 

1 0249 

DATA 

0,248,279,250 

JH 

1 0250 

DATA 

0,249,280,251 

10 

1 025 1 

DATA 

221,250,281,0 

CO 

1 0252 

DATA 

0,0,282,253 

JE 

10253 

DATA 

223,252,0,254 

JI 

1 0254 

DATA 

224,253,0,255 

DD 

1 0255 

DATA 

0,254,0,256 

DC 

10256 

DATA 

226,255,0,0 

DJ 

1 0257 

DATA 

227,0,287,0 

HO 

10258 

DATA 

0,0,0,259 

DG 

1 0259 

DATA 

0,258,0,260 

OH 

10260 

DATA 

230,259,0,0 

JE 

1 026 1 

DATA 

231,0,291,262 

CP 

10262 

DATA 

0,261,292,0 

DB 

10263 

DATA 

233,0,293,0 

DH 

10264 

DATA 

0,0,294,265 

KB 

10265 

DATA 

235,264,0,266 

U 

10266 

DATA 

0,265,296,267 

KO 

10267 

DATA 

0,266,297,268 

KO 

10268 

DATA 

238,267,298,0 
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6A 10269 
CF 10270 
JE 10271 
CJ 10272 
HB 10273 
JL 102 74 
KB 10275 
DI 10276 
DN 10277 
KN 10278 
EB 10279 
CE 10280 
JD 10281 
Jit 10282 
fll 10283 
DE 10284 
OH 10285 
DP 10286 
LA 10287 
EF 10288 
DP 10289 
DC 10290 
ME 1029 1 
DE 10292 
JN 10293 
KD 10294 
DP 10295 
KJ 10296 
DH 10297 
NC 10298 
BP 10300 
BL 1 030 1 
IL 1 0302 
JB 10303 
JD 10304 
DA 10305 
HG 10307 
DH 10308 
JJ 10309 
JA 10310 
CF 10311 
CD 10312 
Cl 10313 
AA 10314 
CK 10315 
JK 10316 
10 10317 
KC 10318 
CN 10319 
PK 10320 


DATA 0,0,0,0 
DATA 0,0,300,271 
DATA 241,270,0,272 
DATA 0,271,302,0 
DATA 0,0,303,0 
DATA 244,0,304,275 
DATA 0,274,305,276 
DATA 246,275,0,0 
DATA 247,0,0,278 
DATA 0,277,308,279 
DATA 249,278,0,0 
DATA 250,0,310,0 
DATA 251,0,311,282 
DATA 252,281,0,283 
DATA 0,282,0,0 
DATA 0,0,314,285 
DATA 0,284,0,286 
DATA 0,285,0,287 
DATA 257,286,0,288 
DATA 0,287,0,289 
DATA 0,288,0,290 
DATA 0,289,320,0 
DATA 261,0,0,0 
DATA 262,0,0,293 
DATA 263,292,323,0 
DATA 264,0,324,295 
DATA 0,294,0,296 
DATA 266,295,326,0 
DATA 267,0,327,0 
DATA 268,0,0,0 
DATA 270,0,0,301 
DATA 0,300,0,302 
DATA 272,301,332,0 
DATA 273,0,333,304 
DATA 274,303,334,0 
DATA 275,0,335,0 
DATA 0,0,337,0 
DATA 278,0,0,309 
DATA 0,308,339,310 
DATA 280,309,340,0 
DATA 281,0,0,312 
DATA 0,311,342,0 
DATA 0,0,343,314 
DATA 284,313,344,315 
DATA 0,314,0,316 
DATA 0,315,346,317 
DATA 0,316,347,318 
DATA 0,317,348,319 
DATA 0,318,0,320 
DATA 290,319,350,321 
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!K 

10321 

DATA 

0 S 320,351,322 

CB 

1 0322 

DATA 

0,321,352,0 

JO 

1 0323 

DATA 

293,0,353,324 

JJ 

1 0324 

DATA 

294,323,0,325 

CN 

1 0325 

DATA 

0,324,0,326 

KD 

1 0326 

DATA 

296,325,356,0 

DM 

1 0327 

DATA 

297,0,357,0 

«n 

10328 

DATA 

0,0,358,0 

CF 

1 0332 

DATA 

302,0,0,333 

C6 

10333 

DATA 

303,332,0,0 

CL 

1 0334 

DATA 

304,0,0,335 

Ch 

1 0335 

DATA 

305,334,0,0 

DG 

1 0337 

DATA 

307,0,367,0 

DN 

1 0338 

DATA 

0,0,368,339 

DI 

10339 

DATA 

309,338,0,0 

IN 

1 0340 

DATA 

310,0,370,341 

CJ 

1 034 1 

DATA 

0,340,371,0 

CK 

1 0342 

DATA 

312,0,372,0 

CN 

1 0343 

DATA 

313,0,373,0 

JH 

1 0344 

DATA 

314,0,374,345 

DD 

10345 

DATA 

0,344,0,346 

KC 

10346 

DATA 

316,345,376,0 

DJ 

1 0347 

DATA 

317,0,377,0 

KM 

1 0348 

DATA 

318,0,378,349 

DG 

1 0349 

DATA 

0,348,0,350 

JH 

1 0350 

DATA 

320,349,380,0 

CK 

10351 

DATA 

321,0,381,0 

CN 

1 0352 

DATA 

322,0,382,0 

DA 

10353 

DATA 

323,0,383,0 

NK 

1 0354 

DATA 

0,0,384,0 

DK 

1 0355 

DATA 

0,0,385,356 

KE 

1 0356 

DATA 

326,355,0,357 

KK 

10357 

DATA 

327,356,387,0 

DP 

10358 

DATA 

328,0,388,0 

ND 

10360 

DATA 

13,0,43,0 

DP 

10367 

DATA 

337,0,397,0 

EA 

1 0368 

DATA 

338,0,0,369 

LB 

10369 

DATA 

0,368,399,370 

DC 

1 0370 

DATA 

340,369,0,0 

JD 

1 037 1 

DATA 

341,0,401,372 

CP 

10372 

DATA 

342,371,0,0 

CN 

10373 

DATA 

343,0,403,0 

JP 

10374 

DATA 

344,0,404,375 

DH 

10375 

DATA 

0,374,0,376 

KH 

10376 

DATA 

346,375,0,377 

LA 

10377 

DATA 

347,376,0,378 

CA 

10378 

DATA 

348,377,408,379 

KM 

10379 

DATA 

0,378,409,380 

JK 

10380 

DATA 

350,379,410,0 

CK 

10381 

DATA 

351,0,411,0 
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DE 10382 DATA 352,0,0,383 

JN 10383 DATA 353,382,413,0 

DD 10384 DATA 354,0,414,0 

DN 10385 DATA 355,0,0,386 

DL 10386 DATA 0,385,416,0 

OH 10387 DATA 357,0,417,0 

DP 10388 DATA 358,0,418,0 

00 10389 DATA 389,389,389,389 

E6 10397 DATA 367,0,0,398 

EL 10398 DATA 0,397,0,399 

EK 10399 DATA 369,398,0,0 

LI 10400 DATA 0,0,0,401 

IJ 10401 DATA 371,400,0,402 

OF 10402 DATA 0,401,416,0 

HD 10403 DATA 373,0,0,0 

HF 10404 DATA 374,0,0,0 

HC 10405 DATA 0,0,0,406 

CN 10406 DATA 0,405,0,407 

Ofl 10407 DATA 0,406,0,408 

DI 10408 DATA 378,407,0,0 

HP 10409 DATA 379,0,0,0 

LP 10410 DATA 380,0,0,0 

Cl 10411 DATA 381,0,0,412 

CE 10412 DATA 0,411,0,413 

CN 10413 DATA 383,412,0,0 

OB 10414 DATA 384,0,0,415 

CN 10 4 15 DATA 0,414,0,416 

PH 10416 DATA 386,415,402,417 

KF 10417 DATA 387,416,0,418 

DL 10418 DATA 388,417,0,0 

CN 10419 DATA 389,389,389,389 

IE 15000 IF PEEK ( 764 ) =255 THEN RETURN 

16 15005 V0$= " " : C= 1 : ? "{CLEAR!"; 

OH 15010 INPUT V0*:GOTO 300 

NB 20000 DIM B* < 15) , SP* < 15) , O* (300) , M* < 165) , 0 < 
20) ,M(11) :SPt="{15 SPACES! ":RESTORE 25 
000 

NF 20005 FOR A = N 1 TO 19: READ B : O ( A ) =B : READ A$ 

NO 20010 GOSUB 2 1000: 0$ ( ( A-Nl ) * 1 5 + N1 , ( A-Nl ) * 15 
+15)= A* :NEXT A 

NL 20050 FOR A = N 1 TO 1 1 : READ B : M < A ) =B : READ A$ 

N6 20060 GOSUB 2 1 000 : Mt < ( A-N 1 ) * 1 5 + N 1 , ( A-N 1 ) * 1 5 
+15)=A$:NEXT A 

NJ 20100 FOR A = 0 TO 4 : READ B , C , D : P ( A ) =B : P 1 ( A ) = 
C: PD(A)=D:NEXT A 
NE 20200 RETURN 

OP 21000 IF LEN (At) <15 THEN B$ = SP$ ( 1 , 1 5-LEN ( A$ 

) ) : B$ (LEN(B$)+1)=A$:A$ = B$ 

NI 2 1005 RETURN 
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BD 25000 


OL 25010 


FC 25020 


FA 25050 


NF 25060 

IK 25100 

FQ 31000 
JH 31005 
ED 3 1 0 1 0 

PC 3 1 0 1 1 

PG 3 1 0 1 3 

JH 31014 

DC 3 1 0 1 9 
GF 31020 
EN 31025 

EF 31050 


EC 31055 
HE 31075 
PH 31 100 

PF 31 125 


JO 31 130 
GF 31 150 
NP 31 175 

LC 3 1 180 

DI 3 1 1 85 
IP 31200 
HG 31225 


DATA 126,nrii1i,71,nztrx hdliw,13,hxi 
loo 1,258,yzhpvg lu ul1w,255,glixs,35 
4, hxi1oo 2 

DATA 106,hnzoo ovzuavg, 1 93 , azmgvim,32 

8,hr oevi ozmxv, 147,yfw lu tzlorx,237, 

nztrx irmt,307,ylc lu nzgxsvh 

DATA 57,nztrx wzttvi,109,uoznrmt qzev 

orm, 403, dzmw, 405, h-f rg lu zinli,304,tl 

ow pvb,110,yzhpvg lu ullw 

DATA 295,nlmtl1hv,73,wqrmmr,236,dvivy 

vzi, 340,yzhrorhp, 382,hkvxgiv, 1 16,ivw 

wlztlm,79,hszwld,367,lxsivqvoob 

DATA 69,i-fhg n 1 mh g v i , 378 , x 1 y i z , 28 6 , t r 

zmg shwiz, 181 ,eznkriv 

DATA 241,332,1,343,206,3,384,409,1,23 

8,419,1,298,354,3 

IF D(N0,Nl)<>N0 THEN 31020 

PLOT 38,N0:DRAWTO 127,N0 

IF D(N0,N4)ON0 THEN PLOT 127,N0:DRAW 

TO 159,N0 

IF D ( N0,N2)< >N0 THEN PLOT 3B,N0:DRAWT 
0 N0,N0 

IF D(N0,N4)=N0 THEN PLOT 127,N0:DRAWT 
O 127,79 

IF D(N0,N2)=N0 THEN PLOT 38,N0:DRAWTO 
38,79 

GOTO 32015 

IF D < N1,N2) < >N0 THEN 31050 

PLOT 38,N0:DRAWTO 54,16:PL0T 40,79:DR 

AWTO 54,65:GOTO 31075 

PLOT 30,N0:DRAWTO 30,79:PLOT 30,16:DR 
AWTO 54, 16: IF D(N1,N1)ON0 THEN DRAWT 
O 54,65 

PLOT 30,65:DRAWTO 54,65 

IF D(N1,N4)< >N0 THEN 31125 

PLOT 119,N0:DRAWTO 103,16:PLOT 117,79 

:DRAWTO 103,65:GOTO 31150 

PLOT 127,0:DRAWTO 127,79:PL0T 127,16: 

DRAWTO 103, 16: IF D(N1,N1)ON0 THEN DR 

AWTO 103,65 

PLOT 127,65:DRAWTO 103,65 

IF D(N1,N1)< >N0 THEN 31200 

PLOT 54,16:DRAWTO 103,16:IF D(N1,N4)= 

N0 THEN DRAWTO 103,65 

PLOT 103,65:DRAWTO 54,65:IF D(N1,N2)= 
N0 THEN DRAWTO 54,16 
GOTO 31900 

IF D(N2,N2)< >N0 THEN 31275 
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DB 31250 
EO 31275 


EF 3 1 280 
GH 31300 
JC 31325 

HF 31350 


HB 31355 
HI 31375 
IJ 31400 

IH 31405 

CP 3 1 4 1 0 
JN 31425 
GO 31450 
EH 31475 

EH 31500 


EJ 3 15 0 5 
HP 31525 
DH 31550 

FC 31575 


EK 31580 
HA 3 16 0 0 
JO 31625 

IN 31630 

DI 31635 
KE 31650 
IB 3 1675 
EC 31700 

FH 3 1725 


EF 3 1 730 
HH 3 1 750 


PLOT 54,16:DRAWTO 66,2B:PL0T 54,65:DR 
AWTO 66,53:BOTO 31300 

PLOT 54,16:DRAWT0 54,65:PL0T 54,2B:DR 
AWT0 66,2B: IF D(N2,N1)ON0 THEN DRAWT 
0 66,53 

PLOT 54,53:DRAWTO 66,53 

IF D(N2,N4)ON0 THEN 31350 

PLOT 103,16:DRAWTO 91,28:PL0T 103,65: 

DRAWTO 91,53:GOTO 31375 

PLOT 103,16:DRAWTO 103,65:PLOT 103,28 

: DRAWTO 91,28:IF D(N2,N1)ON0 THEN DR 
AWTO 91,53 

PLOT 103,53:DRAWTO 91,53 

IF D(N2,N1)<>N0 THEN 31425 

PLOT 66,28:DRAWTO 91,2B:IF D(N2,N4)=N 

0 THEN DRAWTO 91,53 

PLOT 91,53:DRAWTO 66,53:IF D(N2,N2)=N 
0 THEN DRAWTO 66,28 
SOTO 31900 


* rflow * 


IF D(N3,N2)< >N0 THEN 31500 

PLOT 66,28:DRAWTO 74,36:PL0T 66,53:DR 

AWTO 74,45:GOTO 31525 

PLOT 66,28:DRAWTO 66,53:PL0T 66,36:DR 
AWTO 74,36: IF D(N3,N1)ON0 THEN DRAWT 
O 74,45 

PLOT 66,45:DRAWTO 74,45 

IF D(N3,N4)< >N0 THEN 31575 

PLOT 91,28:DRAWTO 83,36:PL0T 91,53:DR 

AWTO 83,45:GOTO 31600 

PLOT 91,28:DRAWTO 91,53:PL0T 91,36:DR 
AWTO 83,36: IF D(N3,N1)ON0 THEN DRAWT 
0 83,45 

PLOT 91,45:DRAWTO 83,45 

IF D(N3,N1)ON0 THEN 31650 

PLOT 74,36:DRAWTO B3,36:IF D(N3,N4)=N 

0 THEN DRAWTO 83,45 

PLOT 83,45:DRAWTO 74,45:IF D(N3,N2)=N 
0 THEN DRAWTO 74,36 
GOTO 31900 


* 4 th rpQH » 


IF D(N4,N2)< >N0 THEN 31725 

PLOT 74,36:DRAWTO 77,39:PL0T 74,45:DR 

AWTO 77,42:GOTO 31750 

PLOT 74,36:DRAWTO 74,45:PL0T 74,39:DR 
AWTO 77,39:IF D(N4,N1)<>N0 THEN DRAWT 
0 77,42 

PLOT 74,42:DRAWTO 77,42 
IF D(N4,N4)< >N0 THEN 31800 
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EF 31775 PLOT 83,36:DRAWT0 80,39:PLOT 83,45:DR 
AWTO 80,42:GOTO 31825 

EK 3 18 0 0 PLOT 83,36: DRAWTO 83,45:PL0T B3,39:DR 
AWTO 80,39:IF D(N4,N1)<>N0 THEN DRAWT 
0 80,42 

EC 31805 PLOT B3,42:DRAWT0 80,42 

ID 3 18 2 5 IF D ( N4 , N 1 ) < >N0 THEN 31875 

JE 31850 PLOT 77,39: DRAWTO 80,39:IF D(N4,N4)=N 
0 THEN DRAWTO 80,42 

JH 3 1855 PLOT 80,42:DRAWTO 77,42:IF D(N4,N2)=N 
0 THEN DRAWTO 77,39 

DI 31860 GOTO 31900 

LC 3 18 7 5 PLOT 78,40:PLOT 79,40:PLOT 78,41:PL0T 
79,41 

NL 3 1900 FOR A = N0 TO N4:IF P ( A ) = D ( N 0 , N 1 ) THEN 
31913 


JN 31901 

IF 

P(A)=D (Nl, 

Nl) 

THEN 

3 19 15 

KA 3 1 902 

IF 

P(A)=D(N2, 

N 1 ) 

THEN 

31925 

KD 31903 

IF 

P <A)=D <N3, 

Nl ) 

THEN 

31935 


PJ 3 19 0 4 NEXT A: GOTO 31980 

CJ 31913 PLOT 40,79: DRAWTO 54,65:DRAWT0 103,65 
:DRAWTO 117,79:PL0T 54,65:DRAWT0 54,7 
9:PLOT 103,65:DRAWTO 103,79 
DM31914 GOTO 31904 

JH 31915 PLOT 54,65: DRAWTO 66,53:DRAWT0 91,53: 

DRAWTO 103,65:DRAWTO 54,65 
NF 3 19 17 PLOT 66,53:DRAWT0 66,65:PL0T 91,53:DR 
AWTO 91,65 
DJ 31920 GOTO 31904 

6N 31925 PLOT 66,53:DRAWT0 74,45:DRAWT0 83,45: 

DRAWTO 91,53:DRAWTO 66,53 
NC 31927 PLOT 74,45:DRAWT0 74,53:PL0T 83,45:DR 
AWTO 83,53 
DK 31930 GOTO 31904 

6K31935 PLOT 74,45:DRAWT0 77,42:DRAWT0 80,42: 

DRAWTO 83,45:DRAWTO 74,45 
MP 31937 PLOT 77,42:DRAWT0 77,45:PL0T 80,42:DR 
AWTO 80,45 
EC 31938 GOTO 31904 


JD 31980 

FOR 

O 

1- 

rH 

2 

II 

<1 

19: IF 

0(A) 

=N0 THEN 31984 

KK 31981 

IF 

0(A)=D(N0 

, Nl ) 

THEN 

31985 

UN 31982 

IF 

0(A)=D(Nl 

, Nl > 

THEN 

31995 

JO 31983 

IF 

0(A)=D(N2 

, Nl ) 

THEN 

32005 


PC 31984 NEXT A:GOTO 32010 

PD 31985 COLOR Nl:PLOT 98,65:DRAWT0 9B,77:DRAW 
TO 59,77:DRAWTO 59,65:DRAWT0 9S,65:DR 
AWTO 91,58:DRAWTO 66,58 
MO 31987 DRAWTO 59,65:C0L0R 3 
EH 31990 GOTO 31983 
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HE 31995 


MG 3 1997 
DG 32000 
MM 32005 


LF 32007 
DP 32008 
NG 32010 
DA 32015 
BM 32020 


KC 32025 
EH 32030 


KP 32035 

NJ 32040 
PI 32676 


COLOR 1:PLOT 86,53:DRAWT0 86,57:DRAWT 
0 71,57:DRAWTO 71,53:DRAWT0 86,53:DRA 
WTO 83,50:DRAWTO 74,50 
DRAWTO 71,53:COLOR 3 
60T0 31983 

COLOR 1:PLOT S1,45:DRAWT0 B1,47:DRAWT 
0 76,47:DRAWTO 76,45:DRAWT0 81,45:PL0 
T 77,44 

DRAWTO 80,44:COLOR 3 

GOTO 31984 

RETURN 

IF CR< >43 OR CDON1 THEN RETURN 
COLOR 2:PLOT 109,36:DRAWTO 111,36:DRA 
WTO 113,38:DRAWTO 113,41:DRAWTO 111,4 

3 

DRAWTO 109,43:DRAWTO 1 07,41:DRAWTO 10 
7,3B:DRAWTO 109,36 

PLOT 109,38:DRAWTO 111,38:PL0T 109,39 
:DRAWTO 111,39:PL0T 110,40:DRAWTO 110 
,41 

PLOT 117,79:DRAWTO 117,16:DRAWTO 74,1 

6:DRAWTO 74,79:C0L0R 3 

RETURN 

POKE 764, 12:POKE 16,64:P0KE 53774,64: 
INPUT A$:POKE 752,1:7 "{CLEAR}";:RETU 

RN 
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Double Brickout 

Grant Albrecht 


You'll need paddles and at least 40K RAM to play this fast-action 
game. 

“Double Brickout" has 11 different skill levels, so even a nov¬ 
ice (level 0) will be able to start right in and practice. If you 
think you're an expert, you might want to try level 10. As 
each screen of bricks is cleared, the computer increases the 
skill level by one. 

To begin play, just follow the screen prompts, press 
START, and use your paddle to prevent the balls from passing 
you by. 

Double Brickout 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FK 9 IF PEEK ( 106) >120 THEN POKE 106,120 
Hfl 10 BASE=3B912 

FP 13 POKE 559,0: GOSUB 550:GOSUB 790:DIM SCORE 
(1),B(1),L(1),R4*(40) ,R5* <40) ,R6$(40) ,R7 
*(40) ,C ( 1 ) 

KD 20 POKE 1780, 1S0: SCORE (0) =0: SCORE ( 1 ) =0: L = 20 
:GOTO 390 
MS 25 BASE=389 1 2 

GP 30 POKE 106, 120: GRAPHICS 1 + 16:P0KE 559,62:P 
OKE 756,140:POKE 1724,64 
NL 40 POSITION 2,1:? #6 ; " 7.** *** * * ****$*>&" : F 

OR 1=2 TO 21:POSITI ON 2,1:? #6;"' 

{16 SPACES > (":NEXT I 

HP 50 X = USR (ADR ( "hj2|X {[IJtaEY {UJEiiaiKDJBS {EJtmScQ 
P3HEKT} CXJeEIIaMIZK , > eE{|"a> Eh BTO ilTa? * " ) ) 

06 51 REM above= "h 0 X INV-CTRL-E E S3 Y INV-C 
TRL-E E E3 GJ B CTRL-D INV-SPACE S INV-CTR 
L-Q E E 3 c QEH □ CTRL-T 
HB 52 REM CTRL-X e □ INV-CTRL-E E □ CTRL-, e E 
INV-CTRL-E BhSBaHas CTRL-." 

LN 70 COLOR 0 : POKE 1 722,0 : POS I T I ON 7,14:? #6;" 
HHKama" ; P+1 : POSITION 3,23:? #6;" 

{5 SPACESlready!(5 SPACESJ" 

PE 80 POKE 1725, 12: POKE 53256, 1 : POKE 53249,0:P 
OKE 53250,0:FOR 1=1 TO 100:X=255-PADDLE( 
P):POKE 53248,X:NEXT I 

KE 90 POKE 1780, 180: POKE 1 78 1 , 1 1 0 : POKE 1782, 11 
0: FOR 1 = 1772 TO 1774:P0KE I,1:NEXT I:POS 
ITI ON 6,23:? #6;"<10 SPACESJ" 
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JF 100 

BE 110 
OD 120 
IB 130 

NL 140 

IJ 150 

NN 160 

IK 170 

HH 171 
LD 180 
OD 181 

DL 182 
AI 200 
DC 210 
MC 220 

AL 230 
El 235 

DL 240 

AH 250 
FK 260 

BK 270 

PH 290 


{8 SPACES > 1 
1719:READ X: 
POKE 705,15 


POKE I,X 


POSITION 7,14:? #6;"f8 SPACES i ":RESTORE 
110:FOR 1=1712 TO 
:NEXT I:POKE 706,0: 

DATA 24,2,76,68,0,0,1,0 

T=RND(0)*3+1:POKE 1716,T:T-RND(0)*3+1 
POKE 1727,0:POKE 1726,P:F0R 1=1 TO 80:X 

=USR(BASE):SOUND 0,0,0,0:NEXT I 
POKE 1727,1:POKE 1717,T:P0KE 1719,1:P0K 

E 706,15 

X=USR(BASE): POKE 77,0:IF PEEK (53279)<>7 
THEN 390 

SCORE(P)=SCORE(P)+PEEK(1722):POKE 1722, 
0: IF PEEK(1724) THEN 220 

j = 40 + 250*RND ( 0 ) : FOR 1 = 1 TO J : X = L)SR ( BASE 
) : X = USR (ADR ( " h|EKF>«2 C [E> PEC B> EES' " ) ) : NE 
XT I:POKE 1727,0 

REM above="h H E CTRL-F INV-5PACE 2 INV 
-CTRL-H m S INV-t=J H Q 0 CTRL-." 

X = USR ( ADR ( M h0X C[=>QEYCH>kilJU{D>BS{E>QI3c 
STHaCTXXJeQdUaiC, > eBUUEh8B3S33I!' " ) ) 
REM above="h E3 X INV-CTRL-E E E2 Y INV-C 
TRL-E E □ CT BB CTRL-D ■ S INV-CTRL-Q E E 
3c E C H 3 CTRL-T CTRL-X 
REM e E INV-CTRL-E E □ CTRL-, e E INV-C 
TRL-E Eh8E3S3ES CTRL- " 


COLOR 0:POKE 1724,64:X=USR(BASE):IF PEE 
K(53279)< >7 THEN 390 

L(P)=L(P)-1:POKE 1729,L(P):POKE 1727,1: 
X=USR(BASE):GOTO 150 

B<P>=B(P)-1:POKE 53248,0:POSITI ON 8,18: 
? #6; : POSITION 3,19:? #6;" 

IT11K 4 SPACES>";5-B(0) ; "C5 SPACES>";5-B 
( 1 ) 

POSITION 3,20:? #6; "Simr(3 SPACES>":PO 
SITION 3,21:? *6; " ETaPTg^ 11 

POSITION 11-(L(0)<11),20:? #6;20-L(0);“ 
":POSITION 17-(L(1)<1 1 ) ,20:? #6;20-L(l 

) . H 

POSITION 9+(SCORE(0X10)+(SCORE(0X100) 
,21:? #6;SCORE (0) :POSITION 15+(SC0RE(1) 
<10) + (SCORE ( 1X100) ,21 
? #6;SCORE(1):C(P)=PEEK(1724) 

J=P*19+1:FOR 1=3 TO 1B:L0CATE I,4,X:R4* 
(I+J)=CHR*(X):LOCATE I,5,X:R5*(I+J)=CHR 
*(X):LOCATE I,6,X 

R6*(I+J)=CHR*(X):L0CATE I,7,X:R7*(I+J)= 
CHR*(X) :NE X T I:R4*(40>="C,}":R5*(40)=" 
(,>":R6*(40)R7*(40)="{,> " 

IF N THEN P=(P=0):POKE 1726,P 
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OH 30 0 IF NOT B (P) THEN POSITION 6,14:7 46;"ir 
PTE! C5EZ133" : FOR 1 = 1 TO 800:NEXT I : GOTO 3 
90 

LJ310 POSITION 6,23:7 46;"press Fire": IF PEEK 
(53279)07 THEN 390 

OH 320 IF < PTRIG (0) AND P = 0) OR (PTRIG(l) AND 
P) THEN 310 

FI 330 POSITION 6,23:7 46;"C10 SPACES}":J=P*19: 

IF FLAG AND N THEN FLAG=0:GOTO 30 
JE 340 I=P*19+4:POSITION 3,4:7 #6; R4* (I , 1 + 15) : 

POSITION 3,5:7 *6;R5*(I,I+15) 

JK 350 POSITION 3,6:7 #6 ; R6* (I, I + 1 5 > : POS IT I ON 
3,7:7 #6;R7*(1,1+15) 

SF 360 POSITION 8,18:7 46;"{11 SP ACES > " : POS I T I 0 
N 3,19:7 #6;"CIS SPACES>":POSITION 3,20 
HD 370 7 46; "{15 SPACES >": POS IT I ON 3,21:7 #6;" 
{16 SPACES}" 

NH 380 POKE 1724, C <P> : POKE 1 729 , L (P ): GOTO 70 
PL 390 POKE 1729, L: GRAPHICS 17:F0R 1=53248 TO 
53250:POKE I,0:NEXT 1:7 #6:7 #6:7 #6;" 

<3 SPACESJdouble brickout" 

NL 400 7 #6;" {3 ~f fl l~ f ~ I I | |l| 14 ■ T;»HI<»H)i 11 : ? #6 
SB 410 POSITION 4,6:7 *6;N+1;" PLAYER GAME":? 
#6:7 #6 

SB 420 7 46; "{5 SPACES>PRESS GnsaEBT" : 7 #6;" 

C4 SPACES>FOR DIFFICULTY":? #6;" 

C7 SPACES}SPEED=";20-PEEK(1729);" ":7 

46 

OE 430 7 46:7 46;"{5 SPACES}PRESS : 7 46 

;"C5 SPACES}FOR ";1+(N=0);" PLAYER":? 4 
6:7 46:7 46; "{5 SPACES}PRESS SESC" 

KO 440 7 46; " {7 SPACES}TO PLAY":? #6:7 46:7 46 
; " IJM:»K 5 SPACES} l:WJ:»si " 

10 450 POSITION 4,23:7 46 ; SCORE (0 ) : POS I T I ON 15 
,23:7 46;SCORE(1) 

CD 460 IF PEEK (53279) < >7 THEN 460 
OK 470 IF PEEK (53279) =5 THEN N=(N = 0):GOTO 410 
PC 480 IF PEEK (53279) =3 THEN L = PEEK ( 1729) : L= (L 
-5)*(L>10)+20*(L=10):POKE 1729,L:G0T0 4 
10 

AA 490 IF PEEK(53279)<>6 AND PTRIG(0) THEN 470 
66 500 B (0) =5: B ( 1 ) =5: P=0: SCORE (0) =0: SCORE ( 1 ) =0 
:L (0)=L:L(1)=L:POKE 77,0:FLAG=1:GOTO 30 

6j 550 rem ■ eh mi —-nm EEaHiMsiaaa aa 

EN 560 RESTORE 590: 1=0 

00 570 READ X:IF XO-1 THEN POKE BASE+ I , X : I = I + 

1:GOTO 570 
HN 580 RETURN 
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FN 590 DATA 104,172,190,6,169,255,56,247,112,2 
,201,58,176,2,169,58,201,195,144,2,169, 
195, 141,0,208 

6B 595 DATA 14 1,184,6,169,0, 141,1,210,162,1,18 
9,180,6,24,125,176,6,157,176,6,74,24,10 
5,69,157 

HI 600 DATA 178,6,157,1,208,189,182,6,24,125,2 
45,6,157,245,6,169,1,157,237,6,189,178, 
6,201,69 

#B 605 DATA 176,12,32,48,154,169,0,56,253,180, 
6,157,180,6,189,178,6,201,194,144,12,32 
,48,154,169 

CL 6 10 DATA 0,56,253,180,6, 157,180,6,189,245,6 
,201,43, 176,20,32,48, 154, 169,4, 141, 189, 
6, 169,0 

CN615 DATA 14 1,8,208,56,253,182,6, 157,182,6,1 
89,245,6,201,205,144,21,169,250,157,245 
,6, 169,0, 157 

ND 620 DATA 19 3,2,157,182,6,157,180,6,169,100, 
157, 178,6, 189,245,6,201,42, 176,5, 169,43 
,157,245,6 

HA 625 DATA 189,178,6,201,68,176,5,169,69,157, 

178.6.189.178.6.201.194.144.5.169.195.1 
57,178,6,189 

FC 630 DATA 182,6,48,63,240,61,189,13,208,201, 

1.240.42.189.178.6.24.105.3.205.184.6.1 
44,43,56 

ID 635 DATA 233,2,56,237,189,6,205,184,6,176,3 
1, 189,245,6,201, 178, 144,24,201,204, 176, 
20,201,183,144 

IN 640 DATA 4,201,199,144,12,32,48,154, 169,0,5 

6.253.182.6.157.182.6.202.208.6.76.35.1 
52,32,176 

DH 645 DATA 15 4.162, 1 . 189.178.6.201.71.144.39, 
201,193, 176,35, 189,5,208,240,30, 141,185 
,6,189,178,6 

JN 650 DATA 56,233,4,74,74,74,56,233,5, 141,192 
,6,172,185,6,185,193,154,141,187,6,32,5 
9,154,202 

CH 655 DATA 208,3,76,22,153,169,0,141,30,208,1 
41, 188,6, 162,4, 165,88, 133,208, 165,89, 13 
3,209,160,83 

BE 660 DATA 177,208,240,3,238,188,6,200, 192,99 
,208,244,169,20,24,101,208,133,208,169, 
0, 101,209, 133,209 

EL 665 DATA 202,208,226,162,2,189,244,6,240,89 
,56,221,240,6,240,83, 141,254,6, 106, 141, 
255,6,142,253 
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M 67 0 DATA 6,24,169,0,109,253,6,24,109,252,6, 
133,204, 133,2 06, 189,240,6, 133,203, 173,2 
54,6,133,205 

CK 675 DATA 189,248,6,170,232,46,255,6,144,16, 
168, 177,203, 145,205, 169,0, 145,20 3, 136,2 
02,208,244,76,209 

NJ 680 DATA 153,160,0,177,203,145,205,169,0,14 
5,203,200,202,208,244,174,253,6,173,254 
,6,157,240,6,189 

EE 685 DATA 236,6,240,48,133,203,24,138,141,25 
3,6, 109,2 35,6, 133,204,24, 173,253,6, 109, 
252,6,133,206 

OB 690 DATA 189,240,6,133,205,189,248,6,170,16 
0,0, 177,203, 145,205,200,202,208,248, 174 
,253,6,169,0,157 

LP 695 DATA 236,6,202,48,3,76,124,153,173,191, 
6,240,15,173,188,6,240,10,173,180,6,208 
,6, 173, 181 

HB 700 DATA 6,208,1,96,32,176,154,76,1,152,169 
,170,141,1,210,169,100,141,0,210,96,173 
, 187,6, 10 

OB 705 DATA 10,141,188,6,10,10,24,109,188,6,24 
,109,192,6,168,177,88,208,1,96,169,0,14 
5,88,32 

ID 710 DATA 48,154,173,185,6,24, 109,186,6,141, 
186,6,169,8,56,237,187,6,141,185,6,189, 
180,6,48 

IA 7 1 5 DATA 9,173,185,6,157,180,6,76,132,154,1 
69,0,56,237,185,6,157,180,6,189,182,6,4 
8,11,169 

FP 720 DATA 0,56,233,1,157,182,6,76,153,154,16 
9,1,157,182,6,189,245,6,24,125,182,6,24 
,125,182 

CH 725 DATA 6,24,125,182,6,24,125, 182,6,157,24 
5,6,96, 174, 193,6, 160,220, 136,208,253,20 
2,208,248,96 

DA 730 DATA 0,0,0,0,0,0,7,6,0,5,0,0,0,4 , - 1 

EJ 790 REM £ 7 kf -HI-l.-f 1»]:!>«: !IT:!:■ « 

O0 SPACES>H/I4JJ:***ul 

FB 800 CHBAS= 1 40 : ADDR=CHBAS*256:PAGE=8 

BD810 A = USR(ADR(" hh<tUEhC[i>[Ihh £H>nEK , I C[1J|TE! 

chj chjehkajbc , > •* > 

,ADDR,PAGE) 

BD811 REM ab o ve= " h h INV-CTRL-E E h INV-CTRL 
-E C h h INV-CTRL-E □ □ CTRL-, INV-CTRL 
-EtlQ 

JP812 REM INV-CTRL-. INV-CTRL-E E ffl CTRL-A IN 
V-SPACE CTRL-, O II INV-CTRL-Q C C E K C 
ECEtTEDSn: CTRL-. CTRL-, 
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OD 820 RESTORE S50:FOR 1=35904 + 256 TO 35904 + 26 
3:READ X:POKE I,X:NEXT I 
PF 830 RESTORE 850:FOR 1=35864 TO 35864+55:REA 
D X:POKE I , X : NEXT I 

JC 840 FOR 1=35929 TO 35936:P0KE I,0:NEXT I 
16 850 DATA 0,254,254,254,254,254,254,254,0,0, 
0,255,0,0,0,0,0,0,0,3,2,2,2,2,0,0,0,128 
, 128, 128, 128, 128 

LE 860 DATA 2,2,2,2,2,2,2,2,128,128,128, 128, 12 
8 , 128, 128, 128 
LO 870 REM 

HC 890 FOR 1 = 1774 TO 1787:P0KE I,0:NEXT I : POKE 
53257,0:POKE 53258,0 
KB 900 PM=128:PMBASE=PM*256 

6B910 FOR I=PMBASE+1023 TO PMBASE + 2047: POKE I 
,0:NEXT I :DRWBAS = PMBASE+1 
JD 930 RESTORE 1090: FOR I=DRWBAS TO DRWBAS + 26: 
READ X:POKE I,X:NEXT I 

CC 940 FOR I=DRWBAS + 256 TO DRWBAS + 260: READ X:P 
OKE I,X:POKE 1+256,X:NEXT I:POKE 704,10 
:POKE 705,15:POKE 706,15 
PP 950 POKE 1 784,27 : POKE 1785,5:P0KE 1786,5:P0 

KE 53256,1:FOR 1=1772 TO 1774:P0KE 1,1: 
NEXT I 

FI 960 POKE 623 , 1 : POKE 1 788 , PM + 4 : POKE 53277,3: 

POKE 54279,PM:POKE 1771,PM:RETURN 
ON 1080 REM ■ J g; HSriW -<■ J.1 

Nfl 1090 DATA 0,255,255,255,255,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,255,255,255,255,0 
IE 1 100 DATA 0,0,8,0,0 
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Saguaro 

Walter, Carol, Jennifer, and Andrew Bulawa 


You'll have to be fast and skillful with your joystick to grab up 
Saguaro eggs while avoiding the vulture. 

In the desert regions of the great American Southwest grows 
the Saguaro cactus. Until recently the method of propagation 
of this plant has been a mystery to the scientific community. 
However, during a recent vacation to that part of the country, 
we discovered what could be the solution to this puzzle. Hid¬ 
den under a large rock, which bore several unprintable 
Anasazi petroglyphs (graffiti), was a hermetically sealed may¬ 
onnaise jar in which was placed an ancient computer printout 
that describes the legend of the Saguaro cactus. Although we 
cannot, at this time, bring out any of the details of this legend, 
we can and must reveal that, according to this legend, the Sa¬ 
guaro cactus begins as an egg dropped onto the hot desert 
sand by the not-often-seen desert vulture. To give this legend 
the attention that it deserves, this program was written. 

Playing Saguaro 

You're a rancher over whose ranch flies the desert vulture 
(that's right, the same one described in the legend). As the 
vulture flies, it will periodically deposit eggs on the hot desert 
sand. You must rope these eggs before they turn into cacti and 
take them back to your cabin to get points. You will receive 
one point for each egg placed in the cabin. To rope the eggs, 
point the joystick in the direction you wish (right, left, or up 
only) and press the trigger. If an egg is at that location on the 
screen, it will disappear and you will be credited with having 
it in your possession; the egg counter will increment to record 
the number of eggs in hand. Don't worry, the eggs will not 
hatch while you're holding them. To deposit the eggs, extend 
your rope, as described above, to the front door of the cabin. 

While you're running around your ranch chasing down 
eggs, you cannot, of course, walk through existing cacti (ouch!) 
nor the prairie-dog mounds. As the game proceeds, your 
movement will grow increasingly more difficult as more and 
more cacti fill the screen, having hatched from the eggs that 
you did not retrieve in time. Always try to maintain a clear 
path to your door. In that you cannot rope eggs immediately 
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below you, don't allow yourself to get trapped by having your 
downward path blocked. 

The Heat of the Desert 

Because the desert is so hot, you cannot stay out in the sun in¬ 
definitely and so a timer has been provided to show you the 
number of seconds that you have remaining before you must 
return to the cabin. If you do not make it back to the cabin 
and deposit at least one egg within the allotted 50-second time 
period, you will be carried off by the desert vulture. 

Oh, another thing—while you are out gathering eggs, do 
not let the desert vulture grab you; for, if he does, he will 
carry you off and the game will be over. Good luck. 

Saguaro 

For error-free program entry, read "The Automatic Proofreader," Appendix C, before typing 
in this program. 

FH 10 REM SAGUARO 
KK 4 0 GOSUB 6000 
KM 50 GOSUB 7000 
KO 6 0 GOSUB B000 
GC 90 I B= 1 

HE 100 REM EtLLitMSilsia 

HI 102 TIME=50-INT<(PEEK<19)#256+PEEK(20))/60> 

:POSITION CMIN+6,RMAX+2:? #6;TIME;" ":I 

F T I ME< =0 THEN B00 
MB 110 REM ** BIRD MOTION 

L0 115 READ X : IF X = -l THEN RESTORE 590:GOTO 12 
0 

MG 1 1 6 SOUND 2 , X , 1 4,2 

EK120 SOUND 0,10,10,6:MOVE=INT<9*RND(0)>+1:IF 
M0VE=5 THEN SOUND 0,0,0,0:GOTO 210 
EH 160 LOCATE BCOL+CDIFF(MOVE>,BR0W+RDIFF<MOVE 
),X:SOUND 0,0,0,0:IF X=217 THEN 120 
PC 1B0 POSITION BCOL, BROW: IF RND<0><0.3 THEN I 
F BPREV=32 THEN BPREV=234 
JD IBB ? #6; CHR$ (BPREV > : BPREV=X 

CP 190 BCOL = BCOL + CDIFF (MOVE) : BROW = BROW + RDIFF (M 
OVE ) 

MH 200 IB = -IB: POSITION BCOL,BROW:? #6;CHR*(74 + 
I B ) 

DO 205 REM ** BIRD BITES PERSON 

BL 206 IF BPREV = B6 OR BPREV=87 OR BPREV=B8 THE 
N TRAP 1000:GOTO 700 
BC210 REM ** SWATTING MOTION 
PM 260 S = STICK (0) : T = S T RIG (0) 
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HN 2 80 

KK 300 
OE 30 1 
PH 302 
MF 303 
JC 304 
NJ 306 

DF 307 

PH 330 

IF 332 
GF 34 0 
HJ 400 
CF 4 1 0 
EH 4 1 2 

GP 420 
CE 4 25 

KM 500 
PJ 5 1 0 
AD 520 

6C 530 
01 590 


JP 592 
KJ 594 


AM 600 
JE 605 
HI 610 
FM 630 

KF 640 

LP 649 
HL 650 
HD 700 
6L 705 
EG 710 
01 712 

HO 714 
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YDIFF=-1*(S=14>+(S=13):XDIFF=-1*(S=11)+ 
( S = 7 ) 

LOCATE PCOL+XDIFF,PROW+YDIFF,X 

IF T< >0 THEN 400 

REM ** TRIGGER PRESSED 

IF YD IFF >0 THEN 100 

IF X=110 THEN GOSUB 600 

SOUND 1,20,8,6:R=PROW+YDIFF:C=PCOL+XDIF 
F 

POSITION C,R:? #6;CHR* (70+ 2 * XDIFF) :FOR 

I = 1 TO 20:NEXT I :SOUND 1,0,0,0 

IF X = 234 THEN X=32:EGGS = EGGS+1:POSITI ON 
CM IN+17,RMAX +1:? #6;EGGS 
POSITION C , R : ? tt6;CHR$(X) 

GOTO 500 

REM ** PERSON MOTION 
IF X< >32 THEN 425 

SOUND 1,15,4,6:POSITION PC0L,PR0W:7 #6; 

II II 

PCOL=PCOL+XDIFF:PROW=PROW+YDIFF 
POSITION PCOL,PROW:? #6;CHR$(87+XDIFF): 
SOUND 1,0,0,0 

REM ** CHANGE EGG TO CACTUS 
C=INT(18SRND(0) ) + 1 : R=I NT <21*RND(0) )+l 
LOCATE C,R,X:IF X=234 THEN POSITION C,R 
:? #6; "E" 

GOTO 100 

DATA 81,81,0,91,0,96,96, 108,96,96,0,0, 1 
62,0,162,121,121,0,121,0,121,0,121,121, 
128,0,121,0,108,108,0,0 

DATA 162,0,162,121,0,108,0,96,96,0,0 
DATA 121,128,144,144,91,0,91,0,91,91,0, 
0,91,0,91,96,96,0,108,121,0,128,128,121 
,0,108,0,121,121,0,0,0,0,-1 
REM ** DEPOSIT EGGS 
POKE 77,0 

IF EGGS=0 THEN RETURN 

FOR N=50 TO 0 STEP -2:S0UND l,40,10,N/4 
:NE X T N:SOUND 1,0,0,0:SC = SC + EGGS:EGGS = 0 
POSITION CMIN + 7,RMAX + 1:? #6;SC:POSITI ON 
CMIN+17,RMAX+1:? #6;"0 
POKE 19,0:POKE 20,0 
RETURN 

REM ** BIRD FLYS AWAY WITH PERSON 
SOUND 2,0,0,0 

BPREV=32:LOCATE BCOL,BROW+1,PPREV 

IF IB=1 THEN FOR 1=20 TO 40:SOUND 2,1,1 

0,(40-1)/2:NEXT I 

LOCATE BCOL+1,BROW, X:POSITI ON BCOL,BROW 
:? #6;CHR$(BPREV);CHR*(74+IB):BPREV=X 
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KC 7 15 


HH 716 
AL 720 
CK 760 
PH 800 
BP 810 
JJ 820 

NA 822 

NC 828 
JG 830 
CC 832 
HE 850 


LOCATE BCOL +1,BROW+1, X:POSITI ON BCOL,BR 
OW+1:? #6;CHR*(PPREV);CHR*(87+1B):PPREV 
= X 


BCOL=BCOL+l 

FOR N=1 TO 50:NEXT N 

IB=—IB:GOTO 712 

REM ** BIRD ATTACKS 

SOUND 0,0,0,0:SOUND 2,0,0,0 

XDIFF=INT((2.6KRND(0)—0.6)*SGN(PCOL-BCO 

YD IFF=I NT( (2.6*RND(0)-0-6) ISBN(PROW-BRO 
W) ) 

IF < ( YD IFF = 0) * < XD IFF = 0) ) THEN 800 
LOCATE BCOL+XDIFF,BROW+YDIFF,X 
IF X=217 THEN 800 

POSITION BCOL,BROW:? #6;CHR$(BPREV):BPR 


E V= X 

DP 860 BCOL = BCOL + XDIFF: BROW = BROW +YD I FF 
HI 865 IB = -IB: POSITION BCOL,BROW:? #6;CHR*(74+ 
IB) 

AG 880 FOR 1 = 1 TO 30:NEXT I 

IA 885 IF ( (BPREV=86)+ ( BPREV=B7 ) + ( BPREV=88 >) T 
HEN TRAP 1000:GOTO 700 
HC 890 GOTO B00 
06 1000 REM * * END DISPLAY 
FG 1010 ? #6; " {CLEAR} " 

LD 1020 SETCOLOR 4.3,2 : SETCOLOR 0,1,6 


PK 1060 FOR 1 = 1 TO 1 0 : R= I NT ( 5*RND ( 0 ) ) + 1 8 : C= I NT 
( 19*RND(0) ):POSITION C,R:? #6;"E":NEXT 
I 

HO 1070 FOR 1 = 1 TO 5:R=INT(5*RND(0))+18:C=INT( 
19*RND(0)):POSITION C,R:? #6;"q":NEXT 
I 

HH 1071 IF SOTS THEN TS = SC 

KK 1080 POSITION 3,1:? #6; "TOP SCORE:";TS 

DK 1090 POSITION 3,5:? #6; " roTT U-jJ.j " ; SC 

LJ 1094 BCOL = 0: BR0W=12: TRAP 1095:GOTO 700 

AG 1095 SOUND 2,0,0,0 : POS I T I ON BCOL,BROW:? #6; 
" ":POSIT ION BCOL,BROW+1:? #6;" " 

BE 1096 POSITION 5,11:? #6: " 

HA 1099 POKE 53279,8 

PH 1100 RESTORE 1115:REM RED RIVER VALLEY 

PC 1105 READ X : IF X = -l THEN FOR J = 1 TO 200:NEX 
T J:GOTO 1100 

BN 1110 IF PEEK (53279) =6 THEN SOUND 3,0,0,0:GO 
TO 60 

MI 1114 SOUND 3, X , 10,8: FOR J=1 TO 25:NEXT J : GO 
TO 1105 

GO 1115 DATA 108,81,0,64,0,64,72,0,81,0,72,81, 
0,96,0,81,81,81,0 
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CO 1117 
EK 1118 


EJ 6000 
NN 6020 
DI 6030 
GN 6040 
HG 6050 

GE 61 00 
KO 6200 
PO 6250 

CA 6300 


NL 6400 

CE 7000 
PD 7020 
LF 7100 
GN 7120 
JI 7130 

AF 7 1 4 0 

NC 7150 
CG 7160 


BN 7170 

LA 7190 
LB 7 1 9 1 
PG 7192 
GH 7194 
NE 7196 
DK 7198 
CA 7200 
BN 7210 
KB 7212 
EH 7 2 1 4 
CF 7216 
DC 7218 
IF 7220 
EN 7222 
OL 7224 
KL 7300 
LH 7310 


DATA 108,81,0,64,0,81,64,0,53,0,60,64, 
0,72,72,72,0,0,0 

DATA 108,60,0,64,0,64,72,0,81,0,72,64, 

0,53,0,60,60,0,96,96,0,108,0,85,81,0,7 

2,0,64,72,0,81,81,0,0,0,-1 

REM TITLE PAGE 

GRAPHICS 2+16 

POSITION 7,4:? #6 ; " SafFHaHO " 

POSITION 5,10:? #6;"PRESS START" 

COLOR 121:PLOT 1,0:DRAWTO l,B:DRAWTO 1 
9,8:DRAWTO 19,0:DRAWTO 1,0 
POKE 53279,8 
RESTORE 1100 

READ X:IF X=-l THEN FOR J=1 TO 200:NEX 
T J:GOTO 6200 

IF PEEKC53279)=6 THEN SOUND 2,0,0,0:GR 
APHICS 2 + 16: POSITION 4,5:? #6: 

MUM " : RETURN 

SOUND 2,X,10,8:FOR J=1 TO 20:NEXT J:GO 
TO 6250 

rem 

DIM CHNEWt(15) 

REM ** DEFINE CHAR SET 
CHNEWt="IKVWXDFHBJZLMNQ" 

MEMTOP=PEEK<106)*256:CHBASE=MEMTOP-204 
8 

FOR 1=0 TO 5 11:POKE CHBASE+I,PEEK ( 5734 
4+1) :NE X T I 
RESTORE 7190 

FOR 1=1 TO 15:CHADD=CHBASE+(ASC(CHNEW* 
(1,1))-32)*8 

FOR J=0 TO 7:READ N:POKE CHADD+J,N:NEX 
T J:NE X T I 

DATA 0,129,90,60,24,0,0,0 

DATA 0,0,0,24,60,90,129,0 

DATA 16,184,144,112,16,56,72,72 

DATA 72,92,72,127,8,28,20,54 

DATA 8,29,9,15,8,30,18,18 

DATA 0,17,42,6B,68,68,40,16 

DATA 8,20,34,34,34,20,68,64 

DATA 0,136,84,34,34,34,20,8 

DATA 9,9,9,79,72,120,B,8 

DATA 0,0,56,124,124,124,56,0 

DATA 1,3,7,15,63,255,82,115 

DATA 82,127,64,127,65,127,65,127 

DATA 128,192,224,240,248,255,2,254 

DATA 2,254,2,254,18,30,18,30 

DATA 0,0,8,28,62,127,127,0 

DIM RDIFF (9) ,CDIFF(9) 

RESTORE 7330 
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PN 7320 

EN 7330 

MB 7998 
DI 8000 
NO 8002 
OK 8003 
NK 8004 

FF 8010 
ON 8020 


PH 8580 
HB 8600 
B6 8610 
DB 8620 
BK 8630 
FK 8640 
HH 8650 
L6 8660 

IP 8670 
OK 8800 

B6 8810 
BI 8849 
HI 8850 
LN 8852 
FH 8900 


FC 8902 
01 8950 
NA 8960 
BI 8998 


FDR 1 = 1 TO 9:READ X : CD IFF (I )= X : READ X: 
RDIFF<I)=X:NEXT I 

DATA -1,-1,0, -1 ,1,-1,-1,0,0,0,1,0,-1,1 
, 0 , 1 , 1,1 
RETURN 


IPRRH BORDE 


GRAPHICS 1+16 
POKE 756,CHBASE/256 

SETCOLOR 0,0,0:SETCDLOR 1,1,6:SETCOLOR 
2,12,4:SETCOLOR 3,3,12:SETCOLOR 4,1,8 
RMIN = 0:RMAX = 20:CMIN = 0:CMAX = 19 
COLOR 217:PLOT CM IN,RMIN:DRAWTO CMAX,R 
MIN:DRAWTO CMAX,RMAX:DRAWTO CM IN,RMAX: 
DRAWTO CM IN,RMIN 
N=CMAX—CMIN—1:J=RMAX—RMIN—3 
FOR 1=1 TO 20 
C=INT(N*RND<0))+CMIN+1 
R=INT(J * RND(0) )+RMIN+1 
POSITION C , R : ? #6;"[I" 

NEXT I 

FOR 1=1 TO 12 

C=INT(N*RND(0) )+CMIN+1 : R=I NT(J tRND (0) ) 
+RMIN+1 

POSITION C,R:? #6;"q":NEXT I 

BCOL=10:BROW=10:LOCATE BCOL,BROW,X:BPR 

EV = X 

PC0L=CMIN+3:PROW=RMAX-l 
REM ** MAKE EGG DEPOSITORY 
POSITION CMIN+1 , RMAX-2: ? #6;"zm" 
POSITION CMIN+1,RMAX-1:? #6;"In" 

SC = 0:EGGS = 0:POSITION CM IN,RMAX + 1:? #6; 
"SCORE: ";S C; :? #6; "{3 SPACESJEGGS: ": 
EGGS 

? #6; "SECS: " 

RESTORE 590 
I B = 1 

POKE 19,0:POKE 20,0:RETURN 
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Beginner’s Guide to 
Typing In Programs 

A computer cannot perform any task by itself. Like a car with¬ 
out gas, a computer has potential, but without a program, it 
isn't going anywhere. All the programs in this book are writ¬ 
ten in a computer language called BASIC. Atari BASIC is easy 
to learn. 

BASIC Programs 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, and number is 
significant. Common mistakes are substituting a letter such as 
0 for the numeral 0, a lowercase l for the numeral 2, or an 
uppercase B for the numeral 8. Also, you must enter all 
punctuation marks, such as colons and commas, just as they 
appear in the book. Spacing can be important. To be safe, type 
in the listings exactly as they appear. 

Braces and Special Characters 

The exception to this typing rule is when you see the braces, 
for example, {DOWN}. Anything within a set of braces is a 
special character or characters that cannot easily be listed on a 
printer. When you come across such a special statement, refer 
to "How to Type In Programs," Appendix B. 

About DATA Statements 

Some programs contain a section or sections of DATA state¬ 
ments. These lines provide information needed by the pro¬ 
gram. Some DATA statements contain actual programs (in 
machine language), while others may contain graphics codes. 
These lines are especially sensitive to errors. 

If a single number in any one DATA statement is 
mistyped, your machine could lock up, or crash. The key¬ 
board, BREAK key, and RESET key may seem dead, and the 
screen may go blank. But don't panic. No damage has been 
done. To regain control, turn off your computer and then turn 
it back on. This will erase whatever program was in memory, 
so always save a copy of your program before you run it. If your 
computer crashes, you can load the program and look for your 
mistake. 
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Sometimes a mistyped DATA statement will cause an er¬ 
ror message when the program is run. The error message may 
refer to the program line that READs the data. However, the 
error is still in the DATA statements. 

Get to Know Your Machine 

You should familiarize yourself with your computer before 
attempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program so that you won't have to type 
it in every time you want to use it. Learn to use your ma¬ 
chine's editing functions. How do you change a line if you 
make a mistake? You can always retype the line, but you 
should at least know how to backspace. Do you know how to 
enter inverse-video, lowercase, and control characters? It's all 
explained in your manual. 

To insure accurate entry of each program line, we have 
included a checksum program. Please read "The Automatic 
Proofreader," Appendix C, before typing in any of the pro¬ 
grams in this book. 

A Quick Review 

1. Type in the program a line at a time in order. Press RE¬ 
TURN at the end of each line. Use BACKSPACE to correct 
mistakes. 

2. Check the line you've typed against the line in the book. 
You can check the entire program again if you get an error 
when you run the program. 

3. Make sure you've entered statements in braces as the 
appropriate control key. 

4. Be sure to save the program on tape or disk before running 
the program. 
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How to Type In 
Programs 

In order to make special characters, inverse-video, and cursor 
characters easy to type in, we use the following listing con¬ 
ventions for all the programs in this book. Please refer to the 
table and explanations if you come across an unusual symbol 
in a program listing. 

Conventions 

Characters in inverse video will appear like this: 

Enter these characters with the Atari key: 


When you see 

Type 


See 

(CLEAR) 

ESC 

SH I FT 

< 

•S 

C1 ear Sc r een 

(UP) 

ESC 

CTRL 

- 

*• 

Cur sor Up 

(DOWN} 

ESC 

CTRL 

= 

4 - 

Cur sor Down 

(LEFT) 

ESC 

CTRL 

+ 

<r 

Cur sor Left 

(RIGHT } 

ESC 

CTRL 

* 

-» 

Cur sor Right 

(BACK S> 

ESC 

DELETE 

A 

Backspace 

(DELETE} 

ESC 

CTRL 

DELETE 

u 

Delete Character 

( INSERT > 

ESC 

CTRL 

INSERT 

u 

Insert Character 

(DEL LINE} 

ESC 

SHIFT 

DELETE 

□ 

Delete Line 

(INS LINE} 

ESC 

SHIFT 

INSERT 

n 

Insert Line 

(TAB} 

ESC 

TAB 


► 

TAB key 

(CLR TAB} 

ESC 

CTRL 

TAB 

□ 

Clear TAB 

(SET TAB} 

ESC 

SHIFT 

TAB 

□ 

Set TAB st op 

(BELL} 

ESC 

CTRL 

2 

Q 

Ring Buz z er 

(ESC} 

ESC 

ESC 



ESCape key 


Graphics characters such as CTRL-T, the ball character, will 
appear as the normal letter enclosed in braces, {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor lefts, or 20 CTRL-R's, will appear as {10 SPACES}, 

{3 LEFT}, {20 R}, and so on. If the character in braces is in 
inverse video, that character or characters should be entered 
with the Atari key. 

Program entry can be mistake-proof if you use "The 
Automatic Proofreader" by Charles Brannon; see Appendix C. 
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The Automatic 
Proofreader 

Charles Brannon 


At last there’s a way for your computer to help you check your 
typing. "The Automatic Proofreader" will make entering programs 
faster, easier, and more accurate. 

The strong point of computers is that they excel at tedious, 
exacting tasks. So why not get your computer to check your 
typing for you? 

“The Automatic Proofreader" will help you type in program 
listings without typing mistakes. It's a short error-checking 
program that hides itself in memory. When activated, it lets 
you know immediately after you type a line from a program 
listing if you have made a mistake. Please read these instruc¬ 
tions carefully before typing any programs in this book. 

Preparing the Proofreader 

1. Using the listing below, type in the Proofreader. Be very 
careful when entering the DATA statements—don't type the 
letter l instead of the number 1, the letter O instead of the 
number 0, extra commas, and so forth. 

2. Save the Proofreader on tape or disk at least twice before 
running it for the first time. 

3. After the Proofreader is saved, type RUN. It will check itself 
for typing errors in the DATA statements and warn you if 
there's a mistake. Correct any errors and save the corrected 
version. Keep a copy in a safe place—you'll need it again 
and again, every time you enter a program from this book 
or from COMPUTE! magazine. 

4. When a correct version of the Proofreader is run, it activates 
itself. You are now ready to enter a program listing. If you 
press SYSTEM RESET, the Proofreader is disabled. To re¬ 
activate it, just type PRINT USR(1536) and press RETURN. 

Using the Proofreader 

All listings in this book have a checksum found immediately to 
the left of each line number. Don't enter the checksum when 
typing in a program. It is just for your information. 

When you type in a line from a program listing and press 
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RETURN, the Proofreader displays the checksum letters at the 
top of your screen. These checksum letters must match the 
checksum letters in the printed listing. If they don't match, it 
means you typed the line differently from the way it is listed. 
Recheck your typing immediately. You can correct any mis¬ 
takes you find. 

The Proofreader is not picky with spaces. It will not no¬ 
tice extra spaces or missing ones. This is for your convenience, 
since spacing is generally not important. But occasionally 
proper spacing is important, so be extra careful with spaces. 
The Proofreader will catch practically everything else that can 
go wrong. 

Due to the nature of a checksum, the Proofreader will not 
catch all errors. The Proofreader will not catch errors of trans¬ 
position. In fact, you could type in a line in any order, and the 
Proofreader wouldn't notice. 

There's another thing to watch out for: If you enter a line 
by using abbreviations for commands, the checksum will not 
match up. But there is a way to make the Proofreader check it. 
After entering the line, LIST it. This eliminates the abbrevi¬ 
ations. Then move the cursor up to the line and press RE¬ 
TURN. It should now match the checksum. You can check 
whole groups of lines this way. The only abbreviation that 
cannot be handled this way is when a question mark (?) is 
used instead of PRINT; they are not the same to the 
Proofreader. 

The Automatic Proofreader 

100 GRAPHICS 0 

110 FOR 1=1536 TO 1700:READ A:POKE I,A:CK=C 
K + A : NE X T I 

120 IF CK< >19072 THEN ? "ERROR IN DATA STAT 
EMENTS. CHECK TVP ING. ":END 
130 A=USR(1536) 

140 ? :? "AUTOMATIC PROOFREADER NOW ACTIVAT 

ED . " 

150 END 

1536 DATA 104,160,0,185,26,3 
1542 DATA 201,69,240,7,200,200 
1548 DATA 192,34,208,243,96,200 
1554 DATA 169,74,153,26,3,200 
1560 DATA 169,6,153,26,3,162 
1566 DATA 0,189,0,228,157,74 
1572 DATA 6,232,224,16,208,245 
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157B DATA 
1584 DATA 
1590 DATA 
1596 DATA 
1602 DATA 
1608 DATA 
1614 DATA 
1620 DATA 
1626 DATA 
1632 DATA 
1638 DATA 
1644 DATA 
1650 DATA 
1656 DATA 
1662 DATA 
1668 DATA 
1674 DATA 
1680 DATA 
1686 DATA 
1692 DATA 
1698 DATA 


169,93,141,78,6,169 
6,141,79,6,24,173 
4,228,105,1,141,95 
6,173,5,228,105,0 
141,96,6, 169,0, 133 

203.96.247.238.125.241 

93.6.244.241 , 1 15,241 
124,241,76,205,238,0 
0,0,0,0,32,62 
246,8,201, 155,240, 13 

201.32.240.7.72.24 
101,203,133,203,104,40 
96,72,152,72,138,72 
160,0,169,128,145,88 
200,192,40,208,249,165 

203.74.74.74.74.24 
105,161,160,3,145,88 
165,203,41, 15,24, 105 
161,200,145,88,169,0 
133,203,104,170,104,168 
104,40,96 
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Index 


"Atagraph" program 68-72 
"Atagraph String Maker" program 
67-68 

"Atari Bibliography" program 8-17 
"Automatic Proofreader, The" program 
226-28 

autonumbered DATA statements 49-50 
"Beginner's Guide to Typing In Pro¬ 
grams" 223-24 

"Block Line Deleter" program 53-54 
braces 223, 225 
byte 
high 56 
low 56 

"Catacombs of Your Mind, The" pro¬ 
gram 190-207 
character set, redefined 148 
checksum 226-27 
"Climb" program 113-16 
COLOR command 65 
console keys 
ENTER 75 
OPTION 75 
SELECT 75 
START 75 
data dictionary 27 
data dictionary record 30 
"DATA Dumper" program 62 
"Data Management System" program 
26-40, 41-42 
DATA statements 223 
"Deep" program 165-69 
defining a key 49-50 
disassembly 61 
DMS/DB variables 30 
"DMSDB" program 31-38 
"DMSSORT" program 39-40 
"Double Brickout" program 208-13 
drawing frame 65 

"Electronic Football" program 121-25 
"Front Attack" program 117-20 
"Granite Cracker" program 179-82 
"Graphics Plus Demo" program 95-96 
"Graphics Plus" program 85-95 
"Guardian" program 101-4 
"Heavenly Gates, The" program 
126-37 


"Heroes" program 170-78 
"Hopeful Journey" program 138-40 
"Hoppo" program 141-47 
indicators 
X= 73 
Y= 73 
C= 73 
LAST= 73 
M 73 

listing conventions 225 
LOCATE statement 149 
"Machine Language Sort" program 
10-11 

"Magic Directory, The" program 3-7 
"Mailing Label Utility" program 41-45 
memory 

allocation 126-27 
location 56, 127 
saving 8 

"Mt. Rock" program 105-12 
"Personal Net Worth Statement" pro¬ 
gram 18-25 

"Pits of Pluto" program 183-87 
pointer 56 

print, single forms 41-42 
quit option (Q) 85 
"Saguaro" program 214-19 
scroll 59 

"Scroll Protect" program 59-60 
SETCOLOR command 65 
"Snowflake" program 98 
"Spiral" program 98 
"Superplot" program 76-81 
"Teaching Concepts" program 157-62 
"Termite" program 148-53 
"Textplot" 84-85 
"Turtle Subroutine" program 98 
"Userkeys" program 50-51 
"Variable Changer" program 54-55 
"Variable Lister, BASIC" program 58 
"Variable Lister, Machine Language" 
program 58 

variable name table (VNT) 56-57 
vertical blank interrupt (VBI) 59 
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To order your Atari Collection, Vol. 2 Disk package, call our 
toll-free US order line: 1-800-334-0868 (in NC call 919-275- 
9809) or send your prepaid order to: 

Atari Collection, Vol. 2 Disk 
COMPUTE! Publications 
P.O. Box 5058 
Greensboro, NC 27403 

Send _ packages of the Atari Collection Vol. 2 Disk at 

$19.95 per package. Each disk package contains two disks. 

All orders must be prepaid (check, charge, or money order). NC 
residents add 4.5% sales tax. 


Subtotal $. 

Shipping & Handling: $2.00/package $. 
NC residents add 4.5% sales tax $. 
Total payment enclosed $. 


All payments must be in U.S. funds. 

□ Payment enclosed 

□ Charge □ Visa □ MasterCard □ American Express 

Acct. No. _ Exp. Date _ 

(Required) 

Name _ 

Address _ 

City _ State _ Zip _ 

Please allow 4-5 weeks for delivery. 
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COMPUTE! Books 

P.O. Box 5058 Greensboro, NC 27403 

Ask your retailer for these COMPUTE! Books. If he or she 
has sold out, order directly from COMPUTE!. 

For Fastest Service 
Call Our TOLL FREE US Order Line 
800-334-0868 
In NC call 919-275-9809 
Or write COMPUTE! Books, 

P.O. Box 5058, Greensboro, NC 27403 


Quantity Title Price Total 

_ COMPUTEi's First Book of Atari (00-0) $12.95 _ 

_ COMPUTE!'s Second Book of Atari (06-X) $12.95 _ 

_ COMPUTE!'s Third Book of Atari (18-3) $12.95 _ 

_ COMPUTE!'s First Book of Atari Graphics (08-6) $12.95 _ 

_ COMPUTERS Second Book of Atari 

Graphics (28-0) $12.95 _ 

_ COMPUTEi's First Book of Atari Games (14-0) $12.95 _ 

_ The Atari BASIC Source Book (15-9) $12.95 _ 

_ Inside Atari DOS (02-7) $19.95 _ 

_ COMPUTEi's Atari Collection, Volume 1 (79-5) $12.95 _ 

_ COMPUTEi's Atari Collection, Volume 2 (029-7) $14.95 _ 

_ Machine Language for Beginners (11-6) $14.95 _ 

_ Second Book of Machine Language (53-1) $14.95 _ 

_ Computing Together: A Parent and 

Teacher's Guide to Using Computers 

with Young Children (51-5) $12.95 _ 

_ SpeedScript: The Word Processor 

for the Atari (003) $ 9.95 _ 

_ Mapping The Atari, Revised (004) $16.95 _ 


Add $2.00 per book shipping and handling. Outside US add 
$5.00 air mail or $2.00 surface mail. 

NC residents add 4.5% sales tax_ 

Shipping & handling_ 

Total payment_ 

All orders must be prepaid (money order, check, or charge). All 
payments must be in US funds. 

□ Payment enclosed Please charge my: □ Visa □ MasterCard 

□ American Express 

Acct. No._Exp. Date 

Name_ 

Address_ 

City_ State_Zip 

Country_ 

’Allow 4-5 weeks for delivery. 

Prices and availability subject to change without notice. 
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With nearly 30 never-before-published articles and programs, 
including more than a dozen games, COMPUTERS Atari Col¬ 
lection, Volume 2 brings you high-quality software for the 
Atari personal computer at an affordable price 

Like its forerunner, COMPUTEI's Atari Collection, Volume 1, 
this book offers outstanding programs that run on the Atari 
400, 800, XL, and XE computers All the programs have been 
fully tested and are ready tp type in using the error-checking 
utility, "The Automatic Proofreader." 

Here's a sample of what's inside 

• A complete database management program that's easy to 
adapt to your individual needs; 

• "Double Brickout," a fast-action paddle game, 

• A short routine you can use in your programs which adds 
turtle-graphics-style commands to BASIC; 

• A graphic adventure that combines the traditional use of 
keyboard commands with joystick movement and a graph¬ 
ics screen; 

• "Atari Bibliography," an easy-to-use database to index all 
your computer magazine articles for quick retrieval, 

• Utilities that change variable names and delete blocks of 
lines; 

• Two graphics routines for creating displays you can save 
and use in your own programs 

As with all COMPUTE! books, the programs are ready to 
type in and use. Or, if you prefer, you can purchase a disk 
package which includes all the programs on disk, ready to 
load and run. 

Atari owners know what to expect from COMPUTE! 
books — clear instructions and top-notch programs. COM¬ 
PUTEI's Atari Collection, Volume 2 meets those expectations, 
and more. 


ISBN 0-87455-029-7 



